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<jpTO^_ *! 










' 


V^^^^^B^^^^^BH^BB 


iHp* j^I 


^f 




^^^ s 


^^B ' «H 


B^i 






ROYAL BLOOD 






> 



*xAgB$Bz-3UTI¥L <DWiT 



u-i'-ti^-v^- U *z-£ iz^s^ 



"Bco3E*x-tzJUU-y Kfc 
titzwmzm&hii 

£%$\L*>r>X^&0)T\ 

-otxzmmizbW&Uj: 

it*iw%«b#i.\, esc 

t*ttBr*fTfc-3fc*J l/C. 
*£W£, fcrtfU £$-# 




• fat 4' < Jttf *i/r;g? c (7)> -f : 



fc'o fUo-tn^ 
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NEW SOFT 



tiJ), Ztifi 

Wc£«7Xf-Ao 

<7)i$Hh>— >C&3<7D 

(is Bua!Lfza^g|5^ 
«fctJfc(iSASz5t^T\ 



L (7)i)cli A < '7 — y — -> a >R^: £ 






■ ft* 
; MSX2/turbo R-R0M/2DD 

■ 9800R/7800R RjiglJ] 









z-n 




mzm 


£H«=#Sl.T«£T 


4 5ft*. fefcSL ft£ 


fetiZfrZ-^it)®.')? 







k 



iSl47S 89 I 
1381513100 | 
i S1700 ( 



iSfoL-aA^;^ 4-5, •>$. 3.\s 

-•>3><nmmtzt3.. 



^*iWT-#4^. 



5 ^feto^SSftfc 






&z>tti^K:J:o-r**» 












mi^m r^Jim^ w-mjt* 

n 40/ 4B 73 1BI £ 13/ IB tt 










^ZL- 7 KW|S]l»Tt^47?[S]fel 




ffii 




iSr4$lH(C5*73 LT < tt4 



* x -tr ;i/ u- v 
*8I„ -TVA.' 







, S#$ir;?ft4 




i M s ^l 


□ 
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•O^-bT^-KOQM^lC:^^ 



IPDJ 




-f^-b^-KSffiofcSi 

fc#b&£&ofci*0£3 r D.P. 
S.SGjS/U-XIz, [i*><fcS§3» 



&£X#u:*u*rtf^ ■ ~ 

r DP.S. jft<7)tel£1f tiff L l^i-f 
tlfc:i<7)7"7 h I *T\ 3^(7)7 

h— y-jMfeUe>*£^\ ^t; 

*>bl £>1#fr V 7 h #<7>T'& £o 

— »;— zr£C % \.^i-3froMW5 

tmnztix^zcntzMTiirL 

.T&ntztiK -fis—^—tf&fMz 
Zhba)**??? — %M&frX\ 
ymnrnm^t) r>xLtn<r>tz 

-y-c $ hizmm^mvyj^ 

q*<(?)tt r D.P.S.SGr> U — Xlz 
#-3 TT^TcD? 7 7-f7^ (ZMSX 

1 6 fc* «y h «KC#<7) 2*7 7 ^ ■> ? tf 

±«§£T-# 5 Z t tz *>1- 'J * J: U 

•k<n=5-b±L*£<»x\ AftfcttiT 
W&£<r>x*&%> v U — XH 3 ?| 

^t-7 7 xn^m^mtf) fe %i * & 

■MSX2-2DD 

■ 6800R[$SIJ] 



Sft**^liaKJWSS^J7W3W3 



iS 




-?X<H£i±A, ?z 
XBMV^<D%-? > 
tft-otz^jktf „ 



tp 



^m^n$)tx\ 

?>l$hZ\tffttz-otz 

tm. : 3-$MzB<7)£& 
*L£Uz LfrU 

^tz(DX'T „ 




/\<yfcf— X> Ktf>Jf-£-(i# 




tzht t^nTs v 



m*zcn->i->)Xi.zMLX 
5 •jA/L-rtsjiA.T-a.T< ftf 
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NEW SOFT 



o±y^<<-?-ftvyoy?TW-\±-x\ 







*-z>mzt:\.^t)\ %>il£')tii&Ltz* Uols^TWcA/r-'^aa 



\iZfO\j^07^vxrj^w&f&fiT\h^U7r^j^)\j 




iS£<7) f> 5 V "J 5 X<T)^T'ZL— 



ct o ^ L fcy— A fc^s £ z *> 
GD^iXr S ? ? * L fc r ? -f X(Z 






xrjo\Jvo~x^zy 



3tfZ^£ioL^(M?Z<r) r \?>? — 9Wi" t\.^tzh,t(D*zi£tf 
■ >.'^-Tjtz* "4-m: foir-oXbhz.%>tz?>n a znh 



■ MSX2-2DD 

H#3600RHfcSlJ] 
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I (Ft I & 



& JUl 2- 






p (Jfr-ffr&f-TJAfc&a. 5 J: -5 
iz t£ o f- >^$ ti/c±iia$_bT\ 
A£S(7)£#T*# *>*§ Mttyf fru 
tW) a taMhntz±mzm: 

CUSS L fc#fc *> & * -5 x -f f =? 
xOiL-f 7 5 7<7)A*tJ, Agg 

viol K^^^^syu^^a 



^/\°-«-Ii:LT, R-403KK: 

>=}-*—?— L.tz tu^<7) r DE- 
JAj£igA,fc'AU:U: fe ^ 1^(7)'^ 

£5 7f'J 7 7 ^4-^r'-A[Zft_b^ 
oTi^„ $U?kV7 Vtzirht 




7K^>?t- 



Z<D7-A. 7.1 — 'J-fc£S 
UJ^&IV, &tf&6, 3V>KA 

1ST Z©7M=l> 

£fSUfcUA©P7L 





B5tfctD^UJ!)§?„ BIT. ft 

««#» 3tf£<D7 x J 
Z]$,ftUZfrtcl\7 

— AfclKYttdf, I 

xxxts xxx 

©XXX, §£|8ft>o 

r^§©tf-# ! 
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NEW SOFT 




15H 




1QB 



bsse 



M 

•^•PACCSo. — )\vO) BIT ; ' 

turbo R(A1ST)/MIDI INTERFACE/19800R 
•DPS SG set3 yvjwy. 

MSX2/2DD/6B00R 
•-tf5JU;*.-5>^MIDI#£ BIT 1 

MSX2/2DD/3400R 
•■t*-^JI/X^>^Vol.B BIT 2 

MSX2/2DD/3400R 



* 12 E 20 BUS 



^^B 



• L(ELLE) ijb:7 
MSX2/2DD/7800P3 

MSX2/2DD/3600H 
•JOKER E A-5V— V7h 
MSX2/2DD/7B00P3 

•a— 5=-r— ct— juk A— tV— y^s 

MSX2/2DD/5800P3 
MSX2/2DD/7800P3 



MSX2/2DD/3980P3 
1^—iJn. ^JjjJKU— 

MSX2/2DD/780DP3 
►BEAST E A'-^-r-V^h 

MSX2/2DD/B800P3 
»^>1z-y-^;b^.Ver.3.0 BIT 2 

MSX2/2DD/8800P3 
IZZWOibX BIT ? 

MSX2/2DD/9800R 



MSX2/2DD/ffi^S5SS 
•S/Ai/^-f— -i-^V—7 

MSX2/2DD/*§*:£ 
•Ox-O-K'J-A 9U-747 
MSX2/2DD/«§5t5S 



MSX2/2DD/7800R(^fffi) 
•3-D-yA<gy§ TtSR 
MSX2/ROM-2DD/«g5fc;£ 

MSX2/2DD/9800H 

MSX2/2DD/7800R 
•SIOTBS TySU— VJh 
MSX2/2DD/78D0R(^» 

MSX2/2DD/7800F9 

•^"tfl ^i7"J-^-Jb 

MSX2/2DD/780DR 

MSX2/2DD/ffl§5£5£(TAKERUm^) 
•tf^S^KV— y-UT'V 3?5tf— HI 

MSX2/2DD/«£5fc:£(TAKERU"£ l #g5 ! B) 
•^U>1z^y-^- V-f^7P+1»fcf> 
MSX2/2DD/l4800Fq 

MSXe/SDD/fflBtS5fee 

MSX2/2DD/9800P3 
•BURAI T«§§«6« U/t— fc/l/V^S 

MSX2/2DD/ffi1S*^ 



♦ WapflHBC*— A-«aWv*WR)CI3; ;ia^lSs^nrfe0^t+/u o &3, TAKERU#6#t5c&ft§V:7hf& iWMs^Sf, 



t:iHY<. MSX NEW SOFTe>ti , f«fc:fetott:*-& 




r *«LJS^ft j=B*<7) B * ££ tj „ 
4-%co &JE £ IS r P -f i 7 Jl> ^7 -v 

To f^^<75^^^ A,ti. ttt^C 

iressj^seiy*-*-! j&*i 

M V #1f$gBOX<7) 3 — 7— T fe IS 



rt-LTu* £ tjy, r yu >-tzy.x 
-7j- j<7»g##K£ L £ L fc ^ 

T'-fo ?Afc-?^gPC-980lKg£><7*— 

A£7V-LT<&i:Lf;#\ ±A 

a. U— •> 3 Xr— A£ l^o v-^ > 

MS, toTfeMsm :M'b 

■>ia U— v a >-7*— A#ff^£ 
9tt^>M4R<r M1^ z *> >b IS 







< ky-HT-u^xDiiinvT-v*, 

r t7;7F V — 9" "J T> jCO^^ 



— / \* h ;u y. + >/ \ D - -y ^ j(7)H® 
%b(Ss 3^^"b5^(z^(tT(7) 




• wOT^KiiBa^+wb^T-r 
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fe V » h CD 







%7)11fl25S(ZW<77 M — 
13- 2 #£<&%£ tltZo 3(7)3- 
■*—-£& 3-£Tfc«3 5y* 

*3(f -5 *>0*-A^7 7 > KT'A 
*f(t^V7 MzHT&*#ft<7) 

i&S^fStf* y^kV + Xbffi 
2tiW77 h^— * — Srfo^-t+o 

B#CZ V 7 V ft £*£*WX L fc fe <7)/^ 
^rtHliil^ b <7)fr l H4-3 v- 



$1 & BSS& iiHSfiroft ZT'&mi 
&$&i v 3w£**£*.t znii^-9 

y \° V 3 >-> a -y 7^to X bjc-o 

X^tKDU&MKcntzfrbo 

tzhx\ —MP.— if-ctt* 

3fe*A*# l * £ ,fbbft£ (7) TOT L 
Tfr< im^iini/'J-f 
— Jk 2j^t\>U' 7 7 h X}|!£ 
£Uo/c7'7> F^T'77 h£#g 

«7-7> K^T'ietfe?nTi^(7) 

T*— flSlZ«&£ 'JftlbftTUft^ 

** *n.t4±ft 4f^«7)^^c ti, 




J&£\i.5fc«>' , f V 3 >•> 3 -y 7°£ 

RHrov? M*^£>gLTWc 

&£>m%<nj§Mt) < m i^xfrhttz 
mmt>^^xi^£^(Dt)\ 77 h 
ronoflN i ^ft^jwr^r? 

£-o£4>fc*-3fc„ f ©77 h<7): 

£ fcjtfiiziw < fcx^lJ U r ID4S(z 
ft 'J *Lfcj£l^£*.*SSoT 
#fc„ LfrU *<M2fr<nV7 h 
CWLTfcUo *£*?** CSEIlSL 

TWzU *7 7<7)8iiS<7>+T*tK 

** 9WV7Y *7'^ > K£<7> 

MzntZtf o 

tt, «3$>y?rn1MT'Hit;£m<7) 
i7- > 7 -y ? attV£ft3R%3 ti/c 
o> 4: HI ITS* 1N>$fflffiffi8&0!l 
its ^ i ^ z ^ ft(7)^ i: So T i ^ 
fc uru ^nftbti; s-fg 

^i*fl<7)il^* s *) oXL^^ 

T\ ^(^tJ^^^ft L i: t>frr> 

tz®mx®#> xffi%T % (ntfrn* 

^:l^-3t)<7)T•A5o LfrU 41U 
OT^WiifTT'tiftA^fco 

Wotl^, ztUZ¥-tz<=i 
t M £T# ^ft*ft k zmtc? Z> 
cntm\:mk f £(r>X'h^ ztiU 
h itt^x tz jrt^*«i n < o o * y % 
J^^$tifc<75»^— a— El^i: 

'J fc ft I ^-^ft V 7 h aMfc-C'fc 'J s 



^ C7) v 7 h ?rSifK ffiM LXl^tz 

v-f ^ btiW&LX^tz-T^Xff) 
7 7 hA%^$tlfct>ttT«fti^ 
<7)T\ «^tmf«77 Kill] 

LfrLz-i^-imkxmszti 



T*ttSBRV 7 h c7)7'v 7 -r >y ^ tt, 

T fc^^|JJCZM*> 1 Cift Lx*f« a o 

i!S^{Z«}i^y7 h^HroLT^ 
fc/ n° 7 3 > v a -y 7, Si U ^ CTQ 

Mft t'bt^x mmxmn znx 
hUrit^^mz ft § <7) fc* *\ 
t"it^7 7 \-oy%&ti.±W)fct 

^ ^f ^T (7V n° 7 =i > •> a -y 7*T* 
l5oTl^cCDT\ ^tlb-f^T^ 
fi^f 5 c7)(i^II6tltz^pjB^c 
i tzs 4-Hl(7)^a ^ ft stzftyz 
>77hi:i^7T-f7i:(t ^ 
ft U (75B#Fh1 £g^ $ ft t ^, 7 7 
K7)rt^$-^i'y^T*#ftl^l^ 

d 4*^**0 "?**.K va-y7 

i JT"CiT^T(7) 7 7 h C7)rt^tZ-^ 



t(iT*#-r, 



lLT<5fc<7)& 



T'&^o Ztlb/*Vzi>->a 7 7° 

*^%$ nft^o /z±# ftiisx- 

/\°V n >(7) ^'^ 7 -f -y ? fi^« 
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t£j «y 3 > t- t> t'T-"^- lift £ •* © 

S JlS'J iAATilTJCf § - £ h X" 

4<t*k 3&**Il£©i^4bx 
fB5*(ZV7 h-ftT-#TLS^^(t 
£ o m&lti tit :K'^ fe v 
7 h i JT-# x i *4 i *** RHD^xm 

©#4A N r> fttztb, V7M-* 

-(iztiST"gsmsS(zv7 h 

(f £#{ f -^ i£^o —>1<X\ W* 
£ # tzliiliJL© I ftTffS *i*tt 
{*©H*BT*AS 

fc s 3tlJTiC«-r(f^V7K3&< 

^5tV7 h(7) r 117j^l^ 7 7 
h ATpTJKz K-otzZtb&^tz ti\ 

/^T'M#t2T'4^-? fc Sf L 

€) 



«£ -9 tebntftefr^tzz £b$l^ 
Ltzotz^n, £'(Dy—ts—h^k 
m$tiZZ£t£Zmztj:<. s ht 

tih 1 W&*3S*LX^1z<ntz 
£8-1 X-#-*;5(*"C4<* ft 

fr-atM— 1f-«>K 2: a, £T ^x 

Ti^fr^tz(nbWfrtz HAv 
>*WB8T; »H7 -y ? v- h 4 
£' 3 ^<7)^g*^i$ *if- 2: # c 

4 i\ 4-2: 4-^ Ttt fe -5 ¥il*i/f 

*\ &< t>*i< fczm-e *;©&*(* 
•cs&j&Sfcbt*^*-*. 

h (7) 2 %&&&$ tlZ>iZ££'£-o 

tz *% mmmt. 1 4 -? tz v 7 1- © 

~-mi&£\m.i,T, m\s'<)vih%> 

\.H£?nyJz£&foti%v7 Ki 
te©>-a-fr<bt>fc<$A,^ 
$*m** P 4-[I]©*ffifglil&W 

s i) £mmzm^<nm»%ba£n 

TU3©ti|?JftS^4l\, 4-£T'© 

PTT-iiA-eiK £ % T(t^77 

h * W*I*£^ L (z 4 o T L £ -5 
^4{=1&fS4fc©-efc, ¥ft 



ii£»T»j-r 5 z £ mmiz 

^^Tl£lHlU^Z£tz LfrU 
Ha£©?'t*^y 7 h iz^ 'J 1* #*© 

(SStSl© i &mmiE$ tiT^Z>£ 

2>%£(=(*iffi;iT(*4<b4^H& 

^4fe<7)Tx :£#©!§] USKK'fc 
gift 'J A (75 1, © IZWffilZ 4 l J s x 
□*<7)fe(7)(i^3i^-3 2: 1 ^4$n 
So SiR*M©¥K£i£SSALfc 

1007ffc©A|t9©-5 *E> % U-3fclM5T 
Afl^tHfr-SWE LTJ1,"C^3© 
jfr? ~A^Z^?rW^Ttf5rc7) 

8¥^=%4&4u©«jfc^oTi* 

£#„ fl"^>"f(z(iiMbn4i^ JS 

tz(n\,tMW£(Mzfrh, pn^to 

totLTmm&htizzmzm 

LT(i^c-fi]c7)oltct-9^4^o L 

II U i&f^4fec7)Cil5 f msS2: 

4 U m*4?«m££&;L T 05: 
i:tzoiNT#x.T^T(5Li^ 
S ^^J<75#^ttffl TV4V. v(73 

*LTv.^<<7)^t>A x «b4l^ < x ^ 



4 < 2: t> i> '7 7 -f -y ^ 0)iffifcfbK 

#-(iteiL-f£/^>T zn^f>ii 

^7 7 -f -y ^ <7)JSac$ T'^S C7)T* 
1*4 <x fci^Ll^77Y7^ 

*\ -^ i l J Stti Jt<7)i>4 1 ^T-i v 
friziv&hLtt &&£$■&%&£ 

jMlflJhtl* cfc "9 tZ4S(7)^f ^ -5 

:: ft £*UT U 6 (7)(£ 1 1 £ 26 , 

fiJIS4c7)T\ ^tTfeHMB3&«BI 
¥(z i ^ o x L 1 1 <T)p<9%fc,ti Q 
z<nfiSmzr>^T[ZZ\tifrh bW 

l)±tfX\.*£tzl\ ZL (7)*#(Z^ 

feTlz2:'A2:7vKl^T<n 

iiie-n^270, n*mr«v\° 

V3/V37 7***t4 2f<7) g 3E^I 

W±*<%^ L fc 7 7 h (is m%£ 

fco *S%2%tti*J^f<7)7 7KZ 

fc^- b < ^%-<nm$£7Z$ ti&z£ 
ii4'i^i ctiT'*H± s + 
7 =7 £ i>* * h UHMdbA^^ 
^(tfcc2:fz4-5o 



€1 



$U7bSI#*6-rrizE^tf2v3 

r-rjB 1 ^ ll£25B©^>7sK * 
57^aizWT5Jil^izoL\rO' 
iS.«H^*Lfc<, 33lZ-$ 

iiattt)U-t+oy7S(?)«l5 

7y58fti*tifcfttfr-r#, s»a 

g|JCL^L^©■ctt«:L^*<t:®L^*■ro 
S^^lzS^SSiSorL^ 

ck37t#, *^iz^^ss©r 

^CMUTfi«#«S<l:L^5©tt 



L^6fc"iSLA*-r o 

0#j, r iiP^O<tj»if©fTSJA^ 

#N» T-S 

L\o*iiA^5ds^a0r> 
*-r*©^^6i»^iyrfec5o 

EBibr, ftWlc^SRltf 
7^*L^. ctL^^/3v5(Z«^nrL\ 
7b©"c?l)ilLAUfc©fc*tS«5©fc' 
*\ #@©*#B^S=1H^^H 

Siis^^fc<;^7c^a5 ; &©fc" 

£SorfcbUfcl\o #ls]©}Sfg 
Bt)LM+oPC«tSfe©rS5o 

fc* fcfc\ -ri^^V7S««AL/ 



tzsb, m / i>mz5-it&&w*mm. 

#n©»fr7b^s=i 5 -y 7 mm 
(D&m%&±\z&z>(Dtemsi^i\ 

(Dtct)\ 3©*f^©^^ISJiAffl 

f*tf mwm&wmzmz btz d is 

UrL\^U A°7=1777K^ : g 
^H«ffi^S!llzSDx5©IS-IS- 
$Tr*S3fC(S&L^ 
^S^3lZfiJS!!*nr3EP^3EU 

ru*5©is»StfLo^Dur 

L\&lAft i && iL\5iSIS^ : fc|5l 
SM/fo S / J>^tf^7^ J f77K 
*6141i««A¥'r«©ISUA x fc 

«L\eiir^5o *©fl!«tfiaa 

fc14WS!«»SiiICiE0LMft©^ 

D*»&. tt©*ijo*€aHiya^ 

^6tSUo fcfc*8l2aOC141Ba 



ans^iMSf^o 

btru B^lcfeoiisst 
©tfss©iz N a-trriJ- / <y7S 

ISfc'to«©^c!:L^5SMIS. SL^ 
fc<»5SJtSIS«fc<*3^5©« 
A\ 7j<SHJ-iilzJi^^, ;-£©«r 
ISKO^&tr&Uo 

aA/C1+«i:, #[i]©*^IS^n 
1+oP©HHT«So 1fiaA^>* 

|5|UrL^SA : fc^L^^55/3\ 3 

©p^srisff'>^iz^s^s^i 
t • s<^t.-i^©-'S^llaL^ur 

¥fl=©l*|g€5u±Cfflgl,r#& 

ta^©is, fi^s«)fc-r^r©A 
H©at^5£ais»ic-rs©riija: 

<s g»©^x.^Uo^Oc!:J#Z) 



;c 



:c 
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©1991 MICROCABIN CORP. 

turbo F\3-—V ! -<Dfrtj.ti-fos *>z> T ia&umAfJ 




T-f * P *+ l£> MSX turbo R 9800P3 CfftSIJ](2DD) £S<P 



turbo K&mULXmS&tit: 

3g5r£ftfc turbo R^lloTl^ 
ia-f-i:(i*> h- ^ UKfcu 

A,tztt£\ Z<7Xr'-AliMSXJ-- 
+f- * ft fe £ < C RPG& £ ft A 
KlJ-tf LtiKA,T*(5 L l ^ffcSfc £ ,m 

mimi&t%'>imm£W' «, 

©RPG©&^T\ V>miM$*>$. 
■^PfefcfW&TttMo Xb, 
?Z.te£TfiHz r V—?j ->'J- 
X£ Wf Lfcv< ? a * * fc*> N 
*>■?- 'j *©|%g(JRPGv - T£+ 

5©£? q turbo R(75/\1'^n 0, 7— (Zi 



fcC «fc U t> *V £ 0©RPGffcFq £ 
LTJLTfcfc L*>^ ! \ cfttf* 
■f fc -3 i: «>»&:: £ & r ^£ * 
"C«7)RPGlZfi&#fcj fcl^ACfi 







r 



flK»m 



j 



wMT'^feibt 



U§j§CH!©itMB£«ltf«ofco 
IqlBSlzSjiteJDiitU *&©«»• 

ACflWSWttBS©**!:, Sit 13 

^fc'o ^©^©^a-mz. a 
& u^©nsr u < ? 7 » wot. 

/ >&©€iliItt/K , 5*-i'o IS€Htf 
li» ffift©5R ; ?©«"C*S2/l»7|- 

^ -< ^ ma«sex.fcsn©— ac» 
^-r©«*«iBDtf«os, ^Afc 

5tt*©«rKinrnSSIVA 
©SS^aiSZtlZ&S o 




GjjajgjaGHasilllG]!!^^ 




lllfilliHVt-iUT'! 



7" -f U >*T b fc b o fc-f&ji ID 
• \°* £ SIVA© =l > fcT a — * — IZ 
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30) J: a T'-fo 

JK*FtfTV#< ^-*(zLT^ 

-^C4 , ^!'f>l'B 1 aSfJKW 
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*** FM VOICE EDITOR DATA *** 
*** VOICE NAME=Slap Bass *** 
PARM/OP0. 0P1 

\-n K* 

7*7* 

rV** 

♦|f4> 

•H-X 

HO Jf-r/f 
*-l>VA *fr-A 

fc'7'7-h 

DATA 0000 0000 0000 0000 
DATA 0000 0008 0000 0000 
DATA 0021 31F9 0000 0000 
DATA 0825 28F4 0000 0000 



! MODULE 


CARRIE! 


! 




! 4 




! i 


1 


! i 


5 ! 


!• 15 • 


• 15 • ! 


!• 9 • 


• 4 • | 


I- 3 • 


• 2 • ! 


!• i • 


• 8 • j 


! 


! 


! 


! 


! 


! 


! ! 


! 


! ! 


! 



10 "*mws14m1. BAS". A 

20 '< Music Workshop Vol. 14 > 

30 "< ?3vA'- *' -7 > 

40 '< BY Y. KITAGAMI 1991 (C) > 

50 CLEAR 5000 

60 "/// INIT /// 

70 CALL MUSICO. 0, 1, 1, 1, |, |, 1) 

80 DEFSTR A-H, T 

90 DIM A* (15) 

100 POKE &HFA3C. 30 

110 SOUND 6, 25 

120 SOUND 7, 128 

130 '*»»* ?'-* ; A*a = 

140 FOR 1=4 TO 15 

150 READ A$ 

160 A* (I) =VAL ("&H"+A$) 

170 NEXT 

1 80 DATA 0. 8, 0. 

190 DATA 0021, 31F9. 0, 
200 DATA 0825. 28F4, 0. 
210 CALL VOICE COPY (AH, 663) 
220 '/// PLAY DATA /// 
230 "•--- INZ — 
240 T="T120 
250 A0="O7L1 ®2 VI 5 
260 C0="O4L16§6 VI 3 
270 D0="O4L16@24VI5 
280 E0="O4L16§48V15 
290 F0="O2L16S63V15Q7 
300 G0="V3@A15 
310 H0="O4L4S1M2000 
320 ' ' 

330 A1="E1E2. A4 
340 A2="G1G2. B4 
350 ' "— - CORD — 
360 Cl=">D-8. D- R1R2 D-4< 
A R1R2 A4 



370 Dl= 
380 El= 
390 C2= 
400 D2= 
410 E2= 



A8. 
E8. 
B8. 
G8. 
D8. 



E R1R2 E4 

B R1R2 B4 

G R1R2 G4 

D R1R2 D4 
420 ' '--- BASS — 

430 F1=">DE<E8GER16E AR16AG8EGA >DE<E8GE 
R16E AR16AG8B-AG 

440 F2=">DE<E8GER16E AR16AG8EGA >DE<E8GE 
R16E G>G<G->G-<F>F<E>E< 
450 "-— DRUM — 

460 G1="B!H16H16H16H16 S !H1 6H1 6H1 6H1 6 B! 
H16H16H16BH16 S !H1 6H1 6H1 6C! 1 6 BIH16H16H1 
6H16 SIH16H16H16H16 B !H1 6H1 6H1 6BH1 6 S!H1 
6H16H16CM6 

470 G2="B!H16H16H16H16 S!H1 6H1 6H1 6H1 6 B! 
HI 6H16BH1 6H1 6 S!H1 6H1 6H1 6C! 1 6 BIH16H16H1 
6H16 SIH16H16H16H16 B !H1 6H1 6H1 6BH1 6 S!H1 
6H16H32H32H32CI32 
480 ' "-— SNARE 
490 H1="R4CR4C R4CR4C 
500 PLAY #2. T. T, T, T. T, T, T, T 
510 PLAY #2. A0, A0, C0, D0. E0, F0. G0, H0 
520 PLAY #2. Al, A1.C1. Dl. El, F1.G1, HI 
530 PLAY #2. A2, A2, C2. D2. E2, F2. G2. HI 
540 GOTO 520 
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FMrtUSWWS* 



r MUSIC WORKSHOPjM 1 iU^£ 
2 tf'S-U— ?— (7>FM$igT\ U^> 

z.ttfX'£Z><nfrl ##$A,<7) 



j§m$ fwn -? tz^izmat $ 

^bm^Sff V^i^c-^o BASICTiffl 



U-tz-7'L/-.hT\ &&fc<7)£/JJf* 

B&s *n& mm^t. mat 

h *fc 111 U*T$fe<7)*FM* 'J v^" 



iKn&z*s&)^ 



j^^CO^TJti 1 E3O0<7)>8E|P£ 
"To * fc*ffc& *&%>fr2T3 L J: 



M3'S£:£1^3DB^^ 



C C 3 crt Z\ 



m (o 




m ^ 



ZZ.?><nz?>7-X \-X\ts frti i£r>Xhfr£^$.-&A,l3\ 



fFp°(JBASia MuSICA<7)£'ibbS- 



MuSICACOif-g-ti'jZv-r'^fe 

•#*£ LTH##5000R 
4#L±.lf*To 




107-24 

msmmsmmui 6-11-1 
^^5©D>x7.h^ 



>f— Z^a— i/^^SBP! musical iscc 



BYffl&li ©^ 

ufc ^iifEcas^uri^-ro mm*) 



FM1 =T, Al 0. A1 /3. A2. Al /3. A2. A3. Z0/6, A4, A3 

. Z0/6, A4 

FM2 =T, B1 0. Al /3. A2. Al /3. A2, A3. Z0/6. A4. A3 

. Z0/6, A4 

FM3 =T. CI 0. Al /3. A2, Al /3. A2. A3. Z0/6. A4, A3 

. Z0/6, A4 

FM4 =T, D10. Ql/2, Dl 1. Q2.03. D12. 04, D11.Q2. 

03. D12. 04 

FM5 =T, E10. 01/2. El 1. Q2. 03. E12, 04. El 1. 02. 

03. El 2. 04 

FM6 =T, F10. Fl/3. F2. Fl/3. F2, F3. F4. F3. F5, F 

6. F3. F4. F3. F5. F6 

FMR =T. Gl 0, Gl . G2/2. G3. Gl . G2/2, G4. G5/7. G6 

, G5/4. G7. G8/3, G9. G8/2. GA. G5/7. G6. G5/4. G7 

. G8/3. G9, G8/2. GA 

FM7 = 

FM8 = 

FM9 = 

PSG1 = 

PSG2= 

PSG3=T, P30. Jl/3. J2. Jl/3. J4, J5/7. J6. J5/4. 

J7. J8/3. J9, J8/2. JA. J5/7. J6. J5/4. J7. J8/3. 

J9. J8/2, JA 

SCC1=T. S10. R 1/2, SI 1. R2/8. R3/20, R4. R2/8. 

R3/8. SI 2, R5. SI 3. R6. SI I, R2/8, R3/20, R4, R2 

/8, R3/8. S12. R5. SI 3. R6 

SCC2=T. S20. 01/4, 02. 01/4. 02. S21 . R2/8, R3/ 

20. R4. R2/8. R3/7. 03, S22. 04. S23, 05, S21 . R2 

/8. R3/20. R4. R2/8. R3/7. 03. S22. 04. S23, 05 

SCC3=T. S30, Ll/8. L2. L3, L2. L4. Z0/6. L5. L2, L 

3, L2. L4, Z0/6, L5 

SCC4=T. S40, Ql/2, S4 1.02. 03. S42, 04. S41.Q2, 

03. S42. 04 



SCC5=T. S50. Ql/2. S51. 02. 03. S52. 04. S51. 02. 

Q3. S52. 04 

T=T155 ' 

A10=O6Z50Q8 

B10=O7Z90Q8 

CI0=O4Z80O8 

D10=86O5L8V10M4Z30 

E10=86O5L8V 9M4Z50R8 

F10=833O2L8V13Q6 

G10=VB15 VS15 VC13 Y23. 70Y24. 90Y22. 80 

P30=O4L8Q6 

Z0=R1 

Dl 1=80O6L8V13M4Z30S1 

Dl 2=81 606L8V1 5M4Z80Q4S0 

El 1=80O6L8V10M4Z80S1 

E12=816O6L8V13M4Z100S0Q6 

S10=83O5L8V 8M4Z30M4 

S20=80O5L16V5 

S30=86O3L8O4M1I80Z30 

S40=83O5L8V 8M4Z30 

S50=84O5L8V 7M4Z80R16 

S41=81305L8V 8M4 

S42=81705L8V 7M3Z30Q5 

S51=81405L8V 5M3Z90 

S52=81805L8V 4M3Z90Q5 

SI 1=82051. 16V 4M3Z30 

S12=Q88805L16V 6M3I0 

SI 3=Q88904L8V1 2M5I 60Z30 

S21=8205L16V 2M4Z80R8 

S22=Q88805L16V 6M3I0Z30 

S23 =Q88904L8V 1 2M5 1 60Z30 

Q1= (G2I40G4) RI0 (F#2I40F#4) F#RI0 (F2I40F4F 

)RI0(G2I40G2)RI0 

Q2=Q4D4 (F#4 1 60) F#4Q6I 0E4 (G4GI 60) G4 I0F#C# 

D <B4>(E4) I60E4I0F#4<(B4BI60)B4I0O4>EC#< 

B A4>(E4) I40E4I0 F#4 (A4AI60) A4I0EEF# (A4A 

I60)A4I0F#BA(E4E12I60)E4I0L12C#<BAGEL8> 

03=Q4D4 (F#4 1 60) F#4Q6 1 0E4 (G4G 1 60) G4 1 0F#C# 

D<B4>(E4) I60E4I0F#4(A4AI60)A4I0GF#G F#C# 

F#D#E<B>EC# D<F#B>C#<AB>C#D (E4I60)E4I0< 

B. >D. F# (A4) I60A4I0L16AGF#EDC#<BA 

Q4=DC#DC# (DI60) DI0 (C#I60) C#I0 (EI60) EI0L 

16DF#A>DL8(F#4I60) F#4I0 GF#GF#ED<AF# (D) I 

60D4I0>D(C#4I60)C#4I0 <B<BBB (BI60) BI0 (Al 

60)AI0>B<BBB(BI60)BI0(AI60)AI0 (B) I60BI0 

B-1 6>D1 6E1 6B-1 6 (B-) I60B-I0 <A1 6>C#1 6EI 6A 



1 6 (AI60) AI0L1 6<DF#A>DL8D< (AI60) AI0>D 

R1 = (D2I40D4) RI0 (D2I40D) D4RI0< (B-2I40B-4B 

-)RI0(B2I40B2)RI0 

R2=Q8DF#A>D< 

R3=EGB>E< 

R4=EGB>E<EGB>E< LI 2E>C#<BAGEL1 6 

R5=M4L2F#EDL8EF#GA(B4I60)B4I0G. B. >D(E4I6 

0) E4 I 0L 1 6EDC#<BAGF#E 

R6=AGAGF#GAGA4F#2L 1 6DF#A>DL8<B>D<B>DC#D< 

AA< (B-4) B->BA2 >G<GGGA-<B>F#A>G<GGGA-<B> 

F#AG4D2E2D4. RR4 

01=AF#D<A>GD<AF#> 

02=BFD<B>FD<B-F> BFD<B>FD<B-F> GD<GD>GD< 

GD>GD<GD>GD<GD> 

03=EG>< 

04=M4L2C#<BA>L8C#DEF# (G4) I60G4I0D. F#. A> ( 

C#4) I60C#4I0L16C#<BAGF#EDC# 

05=L8F#EF#EDDEE D4D2L 1 6Z60V8RDF#A>V1 0Z30 

L8<GAGAAAED<G4. >F#E2 >E<EEEF#<B>DF#>E<EE 

EF#<B>DF#>E4<B2 A2F#4. RR4 

Gl =B4SM8C1 6C1 6B8C1 6C1 6SM8B8 

G2= R4SM8C 1 6C 1 6B8C 1 6C 1 6SM8B8 

G3=R4SM8C1 6C1 6B8C1 6C1 6R4 

G4=R4SM8C1 6C1 6SM24SM24SM24SM1 6SM1 6R4 

J1 =81 V 1 2E483V1 2E4R483V1 2E81 VI 3 (E) 

J2=81 V I 2E483V1 2E4R484V 1 5L32 (D) D- (C) C-<L 1 

6 (A) A->L8 

J4=81 V 1 2E483V1 2E4 E24E24E24E1 6E1 684V 1 5L3 

2(D)D-(C)C-<L16(A)A->L8 

G5=B8B8SM8B8B8C8SM8C8 

J5=83V12L4RERE 

G6=B8B8SM8B8 SM24SM24R6R6R1 2 

J6=RE L24EE84V1 5 (D) D- (D) D- (D) D- (C) C-< (A) 

A-> 

G7=B4SM1 6SM1 6SM1 6SM1 6B4SM1 6SM1 6SM1 6SM1 6B 

4SM16SM16SM16SM16 R4SM1 6SM1 6SM8 B8B8SM8B 

8 B8B8SM8SM8 B4R8SM8 SMI 6SM1 6SM1 6SM1 6R4 

J7=L4V1 180EL16V1283EEEEL4V1 180EL1 6V1 283E 

EEEL4V1 180EL16V1283EEEE L4884V1 5 (D) D- (D) 

D- (D) D-L32 (C) C-< (B) B->L883V 1 2E 1 6E 1 6E L48 

1V12E83V12ERE8E8L8 81 VI 2E484V1 5 (D32) D-32 
(D32)D-32V1283E L16EEEE 84V1 5L32 (D) D- (0 

C-<L16(A)A->L8 

G8=VC15B4. H16H16B8B8SM8C8 

G9=B4. H16H16B8B8R4 

J8=»85V13EP1FEFEF83V12E4«85V13 

J9=»EFEFEF«P084V1 5L32 (D) D- (C) C-<L 1 6 (A) 

A->L8 

GA=VC1 3B2R4B4 R4B4R8SM1 6SM1 6SM1 6SM1 6SM8 

JA=81 V 1 1 E284V 1 5L32P0 (D) D- (C) C-<L 1 6 (A) A-> 

L881V1 1E2E4R83V12L16EEEEE8L8 

F1=B4BBB>FB<(B) 

F2=B4BBB>B<B>B< 

F3=BB>F<BB>B<B>F<BB>F<BB>B<B>F CCGCC>C<C 

GCCGCC>C<CG 

F4=FF>C<FF>F<F>C<FF>C<FF>F<F>C< <BB>F<BB 

>B<B>F FF>C<FL12CAGF#ED#L8< 

F5=D#D#G4CCF4<BB>F-4F-GA#B C>C<C>C<C>C<C 

>C<F>F<F>F<F>F<F>F< 
F6=85<B>BF>F<B>B<F>F« B>BF>F<B>B<F>F« 

B>BF>F<B>B<F>F< C>C<F>F<A#>A#<F>F< L4A#B 
>C<B A#B>CD#ERRFR< (B) B8CF8L8<833 
L1=I30Q4V1485R4DDDD DR 
L2=V13R4DDDDDD DDDDDDDD R4EEEEEE EEEEEEE 
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L3=R4AAAAAA AAAAAAAA R4DDDDDD R4AAL12A>C 

#<BAGEL8 

L4=F#2E2D2C#DEF# R4EEEEEER4AAAAAA 

L5=G2. A2D4. RR4 

A1=863V15L8D2. R (D) 

A2=D1 

A3=866V15L1DRERARDE2R2DRERF#2E2DEA 

A4=L8G2. A2D4. RR4 



\m&T-$- 



<FM VOICE No. 63> 
MD 2-6-1- 0- 15- 7- 
CR 0- 0- 15- 2' 
<FM VOICE No. 66> 
MD 2-6-1- 0-15- 6- 
CR 0- 0- 15- 3- 
<PSG VOICE No. 1> 
28- 10- 7- 13-off -on • 
<PSG VOICE No. 3> 
32- 10- 0-32-off-on ■ 
<PSG VOICE No. 4> 
28- 12- 4- 2-on -on • 
<PSG VOICE No. 0> 
28- 8- 7- 13-off -on • 
<PSG VOICE No. 5> 
32-24- 8- 13-on -off- 
<SCC VOICE No. 3> 
32- 14- 12- 14 

0-FB-3B-4A-2A-4A-55 
5F-5D-55-4A-3A-35-21 
0-E7-CF-B9-A6-96-9B 
80-83-8B-96- 16-29-47 
<SCC VOICE No. 2> 
32- 14- 13- 14 

0-FB-3B-4A-2A-4A-55 
5F-5D-55-4A-3A-35- 21 
0-E7-CF-B9-A6-96-9B 
80-83-8B-96- 16-29-47 
<SCC VOICE No. 8> 
32- 12- 15-20 

0-E8-DF-D9-D0-D8-E0 
F0-F8- 0- 7- 10- 19-20 
30- 28- 30- 38- 40- 38- 40 
40- 38- 30- 35- 20- ID- 
<SCC VOICE No. 9> 
32- 16- 10-20 

0-E8-DF-D9-D0-D8-E0' 
F0-F8- 0- 7- 10- 19-20' 
30- 28- 30- 38- 40- 38- 40' 
40- 38- 30- 35- 20- ID- 0- 
<SCC VOICE No. 0> 
32- 2-14-16 

0-40-70-B0-40-50-60- 
70- 60- 50- 40- 30- 20- 10- 
A0-A0-A0-A0-A0-A0-A0- 
A0- A0-A0-A0-A0- 40-30- 
<SCC VOICE No. 6> 
32- 18- 8- 12 
50- 1F-20-30-3F-5F-60- 
7F- 6D- 55- 4A-3A- 27-51 ■ 
40-57-FF-D9-C6-C6-CB- 
BB-B3-AB-CB-26- 19-17- 
<SCC VOICE No. 5> 
32- 16- 13- 18 
30- IF-20-30-3F-5F-60- 
7F- 6D- 55- 4A-3A- 27-51 • 
40-57-FF-D9-C6-C6-CB- 
BB-B3-AB-CB-26- 19-17- 
<SCC VOICE No. 3> 
32- 14- 12- 14 

0-FB-3B-4A-2A-4A-55- 

5F- 5D- 55- 4A-3A- 35-21 • 

0-E7-CF-B9-A6-96-9B- 

80-83-8B-96- 16-29-47- 

I7> 



2- 4- 



1- 1- 

2- 4- 



<SCC VOICE No. 
32-12- 7-18 

0-FB-3B-4A-2A-4A-55-5D 
5F- 5D- 55- 4A- 3A- 35- 21 • 1 9 

0-E7-CF-B9-A6-96-9B-83 
80-83-8B-96- 16-29-47- 
<SCC VOICE No. 4> 
32- 14- 13- 14 

0-FB-3B-6A-2A- 7A- 75- 6D 



■on -off-off 
off-off-off 



■on -off-off 
off-off-off 



5F-5D-55-4A-3A-35-21 


19 


0-E7-CF-B9-A6-96-9B 
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80-A3-BB- 16- 16-29-47 





<SCC VOICE No. 2> 




32- 14- 13- 14 




0-FB-3B-4A-2A-4A-55 


50 


5F-5D-55-4A-3A-35-21 


19 


0-E7-CF-B9-A6-96-9B 


83 


80-83-8B-96- 16-29-47 





<SCC VOICE No. 18> 




32- 12- 14- 5 




0-FB-3B-4A-2A-4A-55 


50 


5F- 5D- 55- 4A-3A- 35-21 • 


19 


0-E7-CF-B9-A6-96-9B- 


83 


80-83-8B-96- 16-29-47- 






y-L.^=L-vvo%m 






10 


SAVE 


"DS0" 








20 












30 




DISK 


STATION 


OPENING 


40 




(C) COMPILE 






50 












60 < 


;LEAR5000: 


MUSIC (1 


0. 





70 TRANSPOSE (-50) :P0KE&HFA3C. 102 

80 P0KE&HFA4C, 1 80: T$="T225" 

90 A1$="816Y32, 3206Q6V12R4G2D4G8A8A+8B8A 

8G8F+8D8R4E4E4D+8E8. " 

100 A2$="06R4A2E4A8B8>C8C+8<B8A8G+8E8 07 

R4D4D4<A8F+4" 

110 A3$="06L8BA+BA+G8D8R8DBA+BA+G>DR8D 

7L8EDED<G8E8R8E>E2<B2" 

120 A4$="07L8C<B>C<BAGEDE2G2 06L8F+8F+8F 

+8F+8F+16R8. G4A4R8D8E8R8F+8" 

130 B1$ = "§0Y32. 3405Q7V1 1 R4G2D4G8A8A+8B8A 

8G8F+8D8R4E4E4D+8E8. " 

140 B2$="05R4A2E4A8B8>C8C+8<B8A8G+8E8 06 

R4D4D4<A8F+4" 

150 B3$="O5L8BA+BA+G8D8R8DBA+BA+G>0R80 

6L8EDED<G8E8R8E>E2<B2" 

160 B4$="06L8C<B>C<BAGEDE2G2 05L8F+8F+8F 

+8F+8F+16R8. G4A4R8D8E8R8F+8" 

1 70 CI $ = "61 0Y32. 3506Q6V1 0R4R1 6G2D4G8A8A+ 

8B8A8G8F+8D8R4E4E40+8E8" 

180 C2$="06R4R16A2E4A8B8>C8C+8<B8A8G+8E8 
07R4D4D4<A8F+8. " 

190 C3$="06L8R1 6BA+BA+G8D8R8DBA+BA+G>DR8 

D 07L8EDED<G8E8R8E>E2<B4. . " 

200 C4$="07L8R16C<B>C<BAGEDE2G2 06L8F+8F 

+8F+8F+8F+ 1 6R8. G4A4R8D8E8R8F+ 1 6" 

210 D1$="810Y32. 3606Q7V9R4R16. G2D4G8A8A+ 

8B8A8G8F+8D8R4E4E4D+8E1 6" 

220 D2$="06R4R1 6. A2E4A8B8>C8C+8<B8A8G+8E 

8 07R4D4D4<A8F+8" 

230 D3$="O6V10L8R16. BA+BA+G8D8R8DBA+BA+G 

>DR8D 07L8EDED<G8E8R8E>E2<B4. " 

240 D4$="06L8R16C<B>C<BAGEDE2G2 05L8F+8F 

+8F+8F+8F+16R8. G4A4R8D8E8R8F+1 6" 

250 F1$="833V12L403G>G8. G16D8G. <G>G8. G16 

D8G. <E>E8. E16<B8>E. <E>E8. E16<B8>E. " 

260 F2$ = "L403A>A8. AI6E8A. <A>A8. A16E8A. < 

D>D8. D16<A8>D. <D>D8. D16<A8>D. " 

270 Gl $ = "Y22. 230Y38. 3Y23. 3Y39. 5Y24, 50Y40 

, 78A15V5BIC4C8C8BSIC4C8C8 B IC4C8C8BS IC4C 

8C8 B1C4C8C8BSIC4C8C8 BIC4C8C8BSIC4C8C8" 

280 G2$="BIC4C8C8BS!C4C8C8 BIC4C8C8BS1C4 

C8C8 BIC4C8C8BSIC4BIC8C8 BS IC4BS! 8BS I4Y2 

4, 75Y40. 1BIMI8BIMI4" 

290 G3$="B!C4C8C8BS!C4C8C8 BIC4C8C8BSIC4 

C8C8 BIC4BS1C8C8BIC8BSI8C8C8 BI8BI4BSI8B 

SI4BSICI8CI8" 

300 PLAY#2. T$. T$, T$. T$. T$. T$ 



310 PLAY#2.A1$. BIS. CIS. 01$. F1S.GIS 
320 PLAY#2. A2$. B2$. C2$. 02$. F2$, G2$ 
330 PLAY#2. A3S. B3S. C3$, D3$. Fl $. Gl $ 
340 PLAY#2. A4$. B4$. C4$, 04$. F2$. G3$ 
350 GOTO 310 



?-L~LiL-VvO%m 



^U/3?D(c^fc N PLAY^t"6tf©ffl TEMPO 



10 _MUSIC(1. 0. 1. 1, 1. I, 1, 1) 

20 DEFSTR A-H:DIM AX (15) 

30 FOR 1=4 TO 15 

40 READ A$:AJf(I) =VAL ("&H"+AS) 

50 NEXT 

60 DATA 0. A, 0. 

70 DATA 18FA. 54F2. 0. 

80 DATA 0A72, 54F2. 0. 

90 _V0ICE COPY {AH, 863) 

100 A0$="T1 10R2O5L2G&L8GGDG" 

1 10 A1$ = "L4A. B. A" 

1 20 A2$ = "G. G. L8EF+L4G. G. L8F+G" 

130 A3$="L2AAT100AT86AT1 10G1" 

140 A4$ = ">L4C. D+FG8&G1" 

150 A5$ = ">C. D+<GG8&G1" 

160 A6$="L4A. AF+D8&L2DC" 

170 A7$ = "L4C. C8&C2" 

180 A8$="C. C2G1" 

190 A9$="F+8&F+2R2>L1C<8" 

200 PLAY#2. "863T110V1 1", "8I6T1 10V13". "81 

6T1 10V14". "863T1 10V7". "81 6T1 1 0V1 I ". "81 6T 

110V12" 

210 PLAY #2. "R805L8DGAB2&BGAB". "R203L8G0 

4DL2A. ". "R2R803L8G04DB&L2B". A0$. A0$, "R20 

4L2B&L8BBBB" 

220 PLAY #2. ">C<BAL4B. >F+". "03L8B04EBA4L 

2A". "05L4E. L8D+&L2D+". A1 $. A1 $, "L4B. B. B" 

230 PLAY #2. "E. <B. >F+E. <BL8BAB", "05L4B. E 

. BB. GL8GF+G", "03L8EBO4F+G&L2GO3L8DB04F+G 

&L2G". A2$. A2$. "05E. L8E&L2EL4E. L8E&L2E" 

240 PLAY #2. "G2{L4E&L32EL4F+&L32F + L8G}2" 

. "L2E{04L4B&L32BL4B&L32BL8B)2". "03L8C+BO 

4C+E4L2E". " (06BGEGEC+}2{04L4G4L32GL4G4L3 

2GL8G} 2". " {R806BGEGE} 2 {04L4G4L32GL4G&L32 

GL8G) 2". " {06L8BGEGEC+} 2 (05BGEGEC+) 2" 

250 PLAY #2. "L2GF+T100GT86AT110R2A32B16. 

A8L4G". "O5L2EDT100ET86F+T110R2O6D". "03DD 

T100DT86DT1 1 0L8GO4DAB&L2B". A3$. A3$. "L2DD 

T100DT86DT1 10R1" 

260 PLAY #2. ">C<B8AGB8&B2A32B16. A8L4G". " 

L1D+R2L2D". "O3L8GO4D+GO5C4L2CO3L8GO40AB& 

L2B". A4$. A4$ 

270 PLAY #2, "AG8GD+L32DD+D164D2>L8DEEF". 

"L4D+. FC05L8B&L2BB". "03L8G04D+G05C4L2C03 

L8G04DAB&L2B". A5$. A5$ 

280 PLAY #2. "L4F<B8>L4EDE84E2<L8AB>CD". " 

L4B. L2B06C04L8B&L2B". "L8EB05EG+&L2G+03L8 

A04EL2A. ". "L4G+L8G+L2G+L8B&L1B". "L4G+. L2 

G+L8B&L1B" 

290 PLAY #2. "L4DF+8AC<B8&L2BB". "R4. 06L4F 

+05AL8G&L2GA". "03L8DA04DF+&L2F+03L8G04DG 

B03F04CFA". A6$. A6$ 

300 PLAY #2. "BL8BEG+BL4B. A. E". "AG+L4E. L8 

E&L2E". "03EB04DF+L2G+03L8A04EGA4L2A", "El 

"+A7$. "El"+A7$ 

310 PLAY #2. "L8BAGA4B>L4C<B. A8&A2". "L4E. 

L8E&L2EL4G. L8F&L2F". "03L8A04EGA&L2A03L8F 

04CFA&L2A". A7$+A7$. A7$+A7$ 

320 PLAY #2. "L8BAGA4B>CD1". "L4G. L2FL1A", 

"03L8FO4CFA&L2AO3L8DAO4CL4DL8AO5C", A8S, A 

8$ 

330 PLAY #2. "D8&D2L8GF+EF+L1GR32G". "L8A& 
L2AR206L1 0R64D". "D&L 1 D03L8G04CDGA05CDEL 1 
G". A9$, A9$ 
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[INFO] Jy7**—is3> 

[i] ^.^-vybmm 

[2] 7>)-h~? 

[3] mz Th^-^-x h 

[4] ID$iff*-K 

[BBS] fOi^»; h 
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/ \'— f 1 -v A»« U 7 U x -f — (VR- 
AXS?Jl^)*r £%4 fe <7>*TtZO 

uTli, Mv#0>§|##ibfc-5£ 
J: ^-fSlZNASATHH^tU VPL 

7*£HMD(^-y K'V-^-ry F- 
t-'-T ;* 7V-) £-f£o tz 3 > t°zL 

— ? f>5"-7i-^\ ^ 

ASz fc 1M ' <— T% <* -3 i: < S (5 

&L*rU VRoT<7)(i^U-9gt 
HAUfc 3 £ tff^T U *>& V L \ £ 

l^ «fc U, VR<7>l.**>tfA,*> fc L*> 
U£ZSoT<7)(i, 2fe*L^fciS 

2KC < £ fe-T— ?7%- -fttk 
xant s z- < mffitoK' v— K C7 x 

4S t #(zlifco £xu#> vti. 
fewest Hx. b ns z 1 13^ 

U#l V AH<7)lWfc& =1 > t° a. — 

*>(?>*#§» Ltt<Tfe, P>t::i 

- ? — (Z A|SJ<7)» # &' "?? - >0 

L^&VRoT<7)(i, *Mati£'Z 

SB— (i, ^ol£*J fc^o>7<-t? 

- v 3 ><D^m±£ i^izttz^ 
i zftliioTS(zg(zjl,x.4 

90 



Ofc<7)£\ P>t°a — ? — ££fr 

Utiles J: -9 tzTSoTZ fcfc, 

fc £ 7U£M\T(n St -f T 7 V *T 

(is ^(iSraSTtt na > tfa. 
Ati^r f£gc7>l*&£^ z £ 

A^V.^feo tZhfi\ ^(DZ1> 

Lfc^££(i> -fb-fbot:^ 
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»*^ TV>^<t 73^4^ » <a 

^^C7) 7° P ^7 A (i^^ I ^ I ^ 
fes ^'IIW^Z £ tf£>frZ> i 7 (z 

6UoT, 7°P-tZ7.C7)^f^^^^ 

£ tz v-7.;U-M(7)HMD^-f$ 

x.(i\ 51H(zp>t:^-^-B^ft 
£*— >*— r >^-XT-&Z ^ fc 

x*# s„ ctiT*ii®(za«> iisn 
^TE^ffl* < #x. «bns*Dit^f 

fcZ^T, HHMfcSBiT'ti^ 
^nszi:(i^t^t^ Axil* 
igt-C'V.^*>(^fcfcL^Lv7)li % VR 
Wt^-oX(F>t) < m£ : bZ£tz 

-^>£ yHMDT-VR%-^.Tl^-5 
•b(Z+^5 L ^ < 4' o b *f -5 t>lt*3o 

HMDT'li, IMSPH-ftl^Tl^^ 
m-tz >1f- TiicDK # ^r* -V *y *■ 
U ^tKzffiSLfci!**^ M75 
(7)B<7)^fco<7)-r-f ^.^V— (za^ 
LttlLT3DB^fi^S7F-rSo fcftt 
^ Z(7)-tZ>1f-(7>r4Hi(if tz£ 



m?rffl(f^st*7F?ns®#iz 
x^*^l;sz:^:* < *s^/^«t*^o 

4-1 Ni^ zft(ix fla*<m<7)»i# 
^g<7)i()#c7)'W#(zj;oT, a*ft 
iz 7'U > \i—Mz l ^^^fla^r J6 L 
Tl^^bfc'o tztf£\ HMDTIi 

Wftlfflt g<7>w«(zjii^<^i; 
TK^/ f- >y ^ ^*ez r z £ \zt£ 

So ^C7)fe^ g^T + ^^U 
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LIST K-=fr>)\>>MX 



1000 DEFINT A-Z:DEFSNG R 

1010 DIM M(63. 54). X (700), Y (700) 

1020 DIM XS (5) . YS (5) , XR (5) , YR (5) 

1030 SCREEN 5: COLOR 15. 0, 0:CLS:COLOR= (12, 7, 0. 7) 

1040 OPEN "grp:" AS #1 

1050 PSET(0, 0) .-PRINT #1, "PUSH SPACE KEY" 

1060 IF STRIG(0)=0 THEN R=RND (1) :GOTO 1060 

1070 GOSUB 1350 

1080 SET PAGE 3, 3:CLS:GOSUB 1110 

1090 GOTO 1810 

1100 END 

1110 FOR 1 = 1 TO 63:M(I. 1)=1 :M (I, 51) =f :NEXT I 

1120 FOR 1 = 1 TO 53:M(1, I) =1 :M(61. I)=1:NEXT I 

1 130 P=0:X1=3:Y1=3:VX=1 :VY=0:R1=. 3 

1140 XX=X1*4:YY=Y1*4:M(X1. Y1)=1 

1150 P=P+1:X(P)=X1 :Y(P)=Y1 

11 60 L INE (XX, YY) - (XX+3, YY+3) , 1 5. BF 

1170 IF RKRND(I) THEN GOSUB 1230 

1180 IF M(X1+VX+VX, Y1+VY+VY) THEN 1260 

1190 X2=X1*4+VX*4:Y2=Y1*4+VY*4 

1 200 L INE (X2, Y2) - (X2+3, Y2+3) , 1 5, BF 

1210 M(X1+VX. Y1+VY)=1 

1220 X1=X1+VX+VX:Y1=Y1+VY+VY:GOTO 1140 

1230 RR=INT(SGN(RND(1)-. 5)+. 1) 

1 240 VV=VY : VY=VX*VX*RR : VX=VV*VV*RR 

1250 RETURN 

1260 FOR VX=-1 TO 1 :FOR VY=-1 TO 1 

1270 IF VX*VY THEN 1290 

1280 IF M(X1+VX+VX, Y1+VY+VY)=0 THEN 1190 

1 290 NEXT VY. VX 

1300 P=P-1 : IF P=0 THEN 1320 

1310 X1=X(P) :Y1=Y(P) :GOTO 1260 

1320 LINE (240, 196) -(243, 199), 1 5. BF 

1330 M(60, 49) =1 :M(61,49)=0 

1340 RETURN 

1350 FOR 1=1 TO 5 

1360 READ XS(I),YS(I).XR(I). YR (I) 

1370 NEXT I 

1380 FOR 1=0 TO 3 

1390 READ XA(I). YA(I) 

1400 NEXT I: RETURN 

1410 DATA 54,25.202. 172 

1420 DATA 68.39. 187, 158 

1430 DATA 96. 67. 159, 130 

1440 DATA 111.82, 144. 115 

1 450 DATA 1 1 8. 89. 1 37. 1 08 

1460 DATA 0. -1. 1.0,0. 1, -1.0 

1470 LI NE (8. 24) - (247. 1 73) . 1 5. B 

1480 FOR 1=2 TO 5 

1490 IF M(X+XA((VV-1)AND3). Y+YA ( (VV-1) AND3) ) =0 

THEN 1560 
1500 IF I<>2 THEN X0=XS (1-1) :X1=X0+18-I*3 ELSE 

X0=9:X1=9 

151 LINE (XS (I) , YS (I) ) - (X0. YS (I) ) . 4, . OR 
1520 LINE (XS (I) +15-1*3. YS (I) ) - (XI , YS (I) ) . 8, . OR 
1 530 LINE (XS (I) . YR (I) ) - (X0, YR (I) ) , 4, . OR 
1540 LINE (XS (I) +15-1*3, YR(I))-(X1, YR(I)),8, , OR 
1550 GOTO 1600 



1560 LINE (XS (I) , YS (I) ) - (XS (1-1 ) . YS (1-1) ) . 4. . OR 

1570 LINE (XS (I) +15-1*3. YS (I) ) - (XS (1-1) +18-1*3, 

YS(I-1)).8.,OR 

1580 LINE (XS (I) . YR (I) ) - (XS (1-1) . YR (1-1) ) . 4. . OR 

1590 LINE (XS (I) +15-1*3. YR (I))- (XS (1-1) +18-1*3. 

YR(I-D). 8, ,OR 

1 600 I F M (X+XA ( (VV+ 1 ) AND3) . Y+YA ( (VV+ 1 ) AND3) ) =0 

THEN 1670 
1610 IF I<>2 THEN X0=XR (1-1 ) :X1=X0+1 8-1*3 ELSE 

X0=247:X1=247 

1620 LINE(XR(I). YS (I) ) - (X0. YS(I)),4, , OR 
1630 LINE (XR (I) +15-1*3. YS (I) ) - (XI. YS (I) ) . 8. . OR 
1640 LINE (XR (I) . YR (I) ) - (X0. YR (I) ) . 4. . OR 
1 650 LINE (XR (I) +1 5-1*3. YR (I) ) - (XI. YR (I) ) . 8. . OR 
1660 GOTO 1710 

1670 LINE (XR (I) . YS (I) ) - (XR (1-1) . YS (1-1) ) . 4. . OR 
1680 LINE (XR (I) +15-1*3. YS (I))- (XR (1-1) +18-1*3. 
YS(I-D). 8. .OR 

1690 LINE(XR(I). YR (I) ) - (XR (1-1) . YR (1-1) ) , 4. .OR 
1700 LINE (XR (I) +15-1*3. YR (I) ) - (XR (1-1) +18-1*3. 
YR(I-1)).8.,0R 

1710 IF M (X+XA (VV) . Y+YA (VV) ) =0 THEN 1780 
1 720 LINE (XR (I) . YS (I) ) - (XR (I) . YR (I) ) . 4. . OR 
1730 LINE (XR (I) +15-1*3. YS (I))- (XR (I) +15-1*3. YR 
(I)),8. .OR 

1740 LINE (XS (I) . YS (I) ) - (XS (I) . YR (I) ) . 4. . OR 
1750 LINE (XS (I) +15-1*3. YS (I) ) - (XS (I) +15-1*3. YR 
(D). 8. .OR 

1760 X=X+XA(VV) :Y=Y+YA(VV) 
1770 NEXT I: GOTO 1800 

1780 LINE (XS (I) . YS (I) ) - (XR (I) . YR (I) ) . 4. B. OR 
1790 LINE (XS (I) +15-1*3. YS (I) ) - (XR (I) +15-1*3. YR 
(I)). 8. B, OR 
1800 RETURN 
1810 SET PAGE 0. 0:CLS 
1820 PG=0:VV=2:XX=3:YY=3:S0=0 
1830 SET PAGE PG. PG XOR 1 :CLS 
1840 X=XX:Y=YY: GOSUB 1470 
1850 PG=PG XOR 1:SET PAGE PG. PG 
1860 IF XX=60 AND YY=49 THEN 2010 
1870 IF STRIG(0) THEN 1960 
1880 S=STICK(0) :IF S=S0 THEN 1870 
1890 S0=S:IF S=1 THEN 1930 
1900 IF S<>7 AND S<>3 THEN 1880 
1910 VV= (VV+ (S=7) - (S=3) ) AND 3 
1920 GOTO 1830 

1930 IF M (XX+XA (VV) . YY+YA (VV) ) =0 THEN BEEP: GOT 
1880 

1 940 XX=XX+XA (VV) : YY=YY+YA (VV) 
1950 GOTO 1830 
1 960 SET PAGE 3. 3 

1970 LINE (XX*4. YY*4) - (XX*4+3. YY*4+3) . 2. BF 
1980 IF STRIG(0) THEN 1980 
1990 LINE (XX*4. YY*4) - (XX*4+3, YY*4+3) . 15. BF 
2000 SET PAGE PG. PG:GOTO 1870 
2010 PSET(96, 200) 
2020 PRINT #1. "GOOL IN!" 
2030 IF STRIG(0)=0 THEN 2030 ELSE RUN 
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10 ON INTERVAL=I00 GOSUB 1000 
20 INTERVAL ON 
1000 IF PLAY (0) THEN RETURN 
1010 PLAY "CDE" : RETURN 



Listl ON INTERVAL GOSUB 



10 ON INTERVAL=600 GOSUB 10 

20 INTERVAL ON 

30 PRINT"-"; 

40 GOTO 30 

100 PRINT" +"; 

110 RETURN 




List 2 ON KEY GOSUB 

10 ON KEY GOSUB 100. 200, 300 

20 FOR 1=1 TO 3:KEY(I) 0N:NEXT I 



40 PRINT A$; 
50 GOTO 40 
100 A$="F1":RETURN 
200 A$="F2": RETURN 
300 A$="F3":RETURN 
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10 ON INTERVAL= 10 GOSUB 1000 

20 INTERVAL ON 

30' M-y^-~f 

40 PRINT "A" ; 

50 F = 

60 IF F=0 GOTO 60 

70 GOTO 40 

1000 F=I:RETURN 
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mt. [CTRLl + ^TOPl T-yn 7=7 
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I0ONSTOPGOSUB 1000 

20 STOP ON 

30 GOTO 30 

1000 RETURN 
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List 3 ON SPRITE GOSUB 

10 SCREEN 1, 2 

20 SPRITE$(0)=STRING$(32.255) 

30 ON SPRITE GOSUB 200 

40 GOSUB 200 

50 SPRITE ON 

60 X=0:Y=0:XX=1:YY=1 

100 X=X+XX:Y=Y+YY 

110 IF X=0 OR X=239 THEN XX=-XX 

120 IF Y=0 OR Y=175 THEN YY=-YY 

130 PUT SPRITE 0, (X,Y),8,0 

140 GOTO 100 

200 PUT SPRITE 1, (RND(1)*240,RND(1)*176), 15,0 

210 RETURN 

List 4 ON STOP GOSUB 

10 ON STOP GOSUB 100 

20 STOP ON 

30 A=0 

40 A=A+1:PRINT A; 

50 GOTO 40 

100 PRINT:PRINr*y|c fiW mmQ/HV ; 

110 A$=INPUT$(1) 

120 IF INSTR("NnYy",A$)>2 THEN END ELSE RETURN 

List 5 ON STRIG GOSUB 

10 ON STRIG GOSUB 100, 200, 300, 400, 500 
20 FOR 1=0 TO 4:STRIG(I) 0N:NEXT I 
30 GOTO 30 

100 PR I NT" * V-M-": RETURN 
200 PRINT"** -K Mi* -1": RETURN 
300 PRINT"** -H Hr-1":RETURN 
400 PRINT"** -H Hit* -2": RETURN 
500 PRINT" **-h2 M/i'-2":RETURN 



o 






0"bs ONKEYGOSUBi^5^SW^ 
r> tz<nX\ V-$L .v* l J HJ^ffl b L 
i Vcffi 7°p 7=7 UfX*$ tz t&io 
? -i V Mi *'J§»li^- A" 
y-A«rt&«)S ££§Wfcfci3COT\ 

-o x i ttttiNteJl ^Mill" * c ^ *« 

T*#5e Eg^CO^KilJtlt^^^ 
^COT;i,& 7.^— ^. + -^fT 
i: 1 80£S$e£ ^S C ^ fc T*£ ?>o 



lztzA,tzA,'M<ti:Z> 

coT\ ^co^^$-3fe^1-•g>^:fe-^ 
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10 ' a'^'v ! A1 Y-k 

10 A=RND(-TIME) 

30 SCREEN 5 

40 DIM X(15),Y(15) 

10 FOR 1=0 TO 15:READ X(I). Y(I):NEXT I 

60 FOR 1=0 TO 7:COLOR=(8+I, I, I. I):NEXT I 

70 COLOR=(7,7.0,0) 

100 • A'^'y/ I? M 

110 SET PAGE l.lrCOLOR 15.0.0:CLS 

120 FOR 1=0 TO 7:CIRCLE(8+I/2, 8-1/2), 8-1, 8+1 

130 PAINT(8+I/2. 8-1/2), 8+1 :NEXT I 

200 * Mtvf'f 

210 SET PAGE 0,0:COLOR 15,0,4:CLS 

220 A$="":FOR 1=0 TO 7:A$=A$+CHR$(VAL("&h"+MID$("l 

4008200441000". 1*2+1, 2))) :NEXT I :SPRITE$(1)=A$ 
230 SPRITE$(0)=STRING$(8,255) 
240X=124:Y=102:XX=0:YY=0:T=100:SC=0 
250 ON STOP GOSUB 3000: STOP ON 

300 • K'iry M 

310BX=INT(RND(l)*224)+8:BY=INT(RND(l)*180)+8 

320 COPY(0,0)-(16,16),1 TO (BX.BY). .TPSET 

330 FOR 1=0 TO 15:PSET(BX+X(I).BY+Y(I)-8). 15:NEXT 

P=15:PUT SPRITE 1. (BX+X(P)-3.BY+Y(P)-12). 7, 1 

ON INTERVALS GOSUB 800 

INTERVAL ON 

ON SPRITE GOSUB 720 

ON STRIG GOSUB 700 

RESTORE 2110:FOR 1=0 TO 13:READ A:SOUND I,A:NE 

I 
' My *-T 
SPRITE STOP 

A=STICK(0):IF A=0 GOTO 500 
XX=XX+(A>5)*.5-(A>1 AND A<5)*.5 
IF XX<-5 THEN XX=-5 ELSE IF XX>5 THEN XX=5 
YY=YY+(A<3 OR A=8)*.5-(A>3 AND A<7)*. 5 
IF YY<-5 THEN YY=-5 ELSE IF YY>5 THEN YY=5 




470 GOTO 600 

500 IF XX THEN XX=SGN(XX)*(ABS(XX)-. 25) 

510 IF YY THEN YY=SGN(YY)*(ABS(YY)-. 25) 

600 STRIG (0) STOP 

610 X=X+XX:IF X<0 OR X>239 THEN XX=-XX:X=X+XX 

620 Y=Y+YY:IF Y<0 OR Y>196 THEN YY=-YY:Y=Y+YY 

630 STRIG(0) ON 

640 PUT SPRITE 0. (X, Y-l). 15,0 

650 SPRITE ON 

660 GOTO 400 

700 ' n'M'y? MM 

710 XX=-XX:YY=-YY:RETURN 

720 SPRITE OFF: INTERVAL OFF 

730 RESTORE 2130:FOR 1=0 TO 13:READ A:SOUND I,A:1 

XT I 

740T=T-4:IF T<1 THEN T=l 

750 SC=SC+P 

760 RETURN 300 

800 ' V WW W* 

810 PRESET(BX+X(P).BY+Y(P)-8) 

820 P=P-1:IF P<0GOTO 900 

830 PUT SPRITE 1, (BX+X(P)-3,BY+Y(P)-12), 7, 1 

840 RETURN 

900 ' Y-kt-n'- 

910 INTERVAL OFF:STRIG(0) OFF:SPRITE OFF 

920 RESTORE 2120:FOR 1=0 TO 13:READ A:SOUND I,A:1 

XT I 

930 COLOR , . 7 

940 FOR 1=1 TO 1000:NEXT I 

950LINE(80.64)-(173,127),1.BF 

960 OPEN'GRP:" AS #l:COLOR 15.1 

970 PSET(94. 72). 1:PRINT#1. "GAME OVER"; 

980 PSET(90. 88). 1:PRINT#1, "SCORE:" ; 

990 PSET(106, 104), 1:PRINT#1.SC; 

1000 CLOSE 

1010 IF INKEYSO"" GOTO 1010 

1020 A$=INPUT$(l):GOTO 200 

2000 • vmy 7-9 

2010 DATA 5, 8, 4, 7. 4. 6, 4, 5, 5. 4, 6, 4. 7, 4. 8, 5 

2020 DATA 9. 6, 10. 6, 11, 5, 12, 4. 13, 4, 13, 4, 14, 5, 15, 6 

2100 ' miy 7 -9 

2110 DATA 0, 0. 0. 0, 0. 0. 31. 247, 16. 0, 0, 0. 1. 14 : 

2120 DATA 0. 8, 0, 9. 00, 10. 15. 192. 16, 16, 16. 0, 70. : 

'J'-V 

2130 DATA 50, 0, 0. 4, 00, 9, 15. 248. 16. 16, 16. 04, 0, 14 : 

3000 * STOP^-? i : J9 

3010 INTERVAL OFF:SPRITE OFF:STRIG(0) OFF 

3020 BEEP:SCREEN 0:PRINT"7'or HI UW'y mf.Ttl 

D 



96 



ML 




mommiz, am«%f«fc 




£T\12J=J§©Quiz©IEfi 
^■CCD 4 ^CDBKDSUieizegMiJ 

mEr>tLo IE^IS"3109e" o 
$0©lii5§#[S5So ^Jl/ZfU 

x^<fc "o fe, iooooin©*8^£ <o r 

:}35l:f3;fto (SC^D^^S 
Z80t-K"CS;JL#tB53:T\ 53 

ST, ^J=]©OT£o ITdM 

niz»£Afu ot©^^ 

4 

D D 

+ □ □ □ 



□ □ □ □ 

wc5©-c&amu3o pis 1 m 

Z©^H^P<BASIC7D^ 

B^EDIi^oMtliJlCck'OD 

AC«0££V?h£ 1 TOtfS 
fio &m& 3 ^ 7 B^^OMSX 



ZoiZJt 



=1 07-24 
3R3?«J?§Ei3ntllJ6-lH 

(«)7X=r- 

MSXx'^y^HJfiSB 



12H^€>f§¥^ *B5J(5 0J*i-$/u©7Ctf^ 



10 DIM Tl%(4. 2). T2%(4. 2). 0P%(4. 2). FG%(63). 0P$(3). T! (3). 0%(2) 

110 DEFINT A-Z:F0R 1=0 TO 4:F0R J=0 TO 2.-READ Tl (I. J). T2(I. J). 0P(I. J) .NEXT J, I 

120 FOR 1=0 TO 15:READ A:FG(I)=A:FG(I+16)=A:FG(47-I)=A:FG(63-I)=A:NEXT I 

130OP$(0)="+":OP$(1)="-":OP$(2)="*":OP$(3)=7" 

140 CT=0:FOR A=0 TO 9: FOR B=0 TO 9: FOR C=0 TO 9: FOR D=0 TO 9 

150 GOSUB 180: IF R=0 THEN GOSUB 460:CT=CT+1 

160 NEXT D.C.B.A 

170 PRINT CT;"numbers fail":END 

180 ' 

190 AA=A 

200 NM=0:FOR 01=0 TO 3: FOR 02=0 TO 3: FOR 03=0 TO 3 

210 GOSUB 230: IF R=l THEN RETURN 

220 NM=NM+1:NEXT 03, 02. 01 :AA=-AA: IF AA<0 THEN 200 ELSE R=0:RETURN 

230 ' 

240 O(0)=O1:O(1)=O2:O(2)=O3:FG=FG(NM):F=1 

250 FOR 1=0 TO 4: IF (FG AND F)=0 THEN 350 

260 T!(0)=AA:T!(1)=B:T!(2)=C:T!(3)=D:FC=1:FOR J=0 TO 2 

270 T1=T1(I. J) :T2=T2(I. J) :0P=0P(I, J) 

280 ON 0(OP) GOTO 300.310.320 

290 T!(Tl)=T!(Tl)+T!(T2):GOT0 340 

300 T!(Tl)=T!(Tl)-T!(T2):GOT0 340 

310 T!(T1)=T!(T1)*T!(T2):G0T0 340 

320 IF T!(T2)=0 THEN J=2:NEXT J:G0T0 350 

330 T!(T1)=T!(T1)/T!(T2) 

340 NEXT J: IF T!(0)>9.99 AND T!(0)<10.01 THEN GOSUB 360:R=1:RETURN 

350 F=F+F:NEXT I: 8=0: RETURN 

360 ' 

370 C1$=OP$(O(0)) :C2$=0P$(0(1» :C3$=OP$(0(2)) 

380 IF AA<0 THEN A$=STR$(AA) ELSE A$=HEX$(AA) 

390 B$=HEX$(B) :C$=HEX$(C) :D$=HEX$(D) 

400 ON I GOTO 420. 430. 440, 450 

410 PRINT "((";A$;C1$;B$;")";C2$;C$;T ;C3$;D$:RETURN 

420 PRINT T;A$;C1$;"(";B$;C2$;C$;"))";C3$;D$:RETURN 

430 PRINT "(":A$:C1$;B$;")";C2$;"(";C$;C3$;D$;")":RETURN 

440 PRINT A$;C1$;"((";B$;C2$;C$;")";C3$;D$;")":RETURN 

450 PRINT A$;C1$;T;B$;C2$;T;C$;C3$;D$;"))":RETURN 

460 ' 

470 PRINT HEX$(A);HEX$(B);HEX$(C);HEX$(D);" ••• fail":RETURN 

480 ' 

0.3.2 :'((a-b)-c)-d 

0.3.2 :*(a-(b-c))'d 

0.2.1 I'U-bMc-d) 

0.1.0 :V((b-c)-d) 

0.1.0 :'a-(b-(c-d)) 



490 DATA 0.1.0. 
500 DATA 1. 2, 1, 
510 DATA 0.1.0. 
520 DATA 1. 2. 1. 
530 DATA 2. 3. 2. 
540 ' 

550 DATA 01.01.13.13. 
560 DATA 23. 23. 11. 11. 



0. 2. 1. 
0.1.0. 
2. 3. 2. 

1. 3. 2. 
1.2.1. 



01.01.13.13 
23.23.11.11 
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MSX turbo R 

DISKCOPY^^r r DCOPY.COMj^^J^^So =1 
yjUMzi^MSX-C Ver.l.2j#&«fo 




ISKCOPY^ 

4"£ ■§■« FS- A1 GTc7) M\D\<7)M 
mtr'Fg. LTU/:*\ 8i&7)EPBlJ 
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¥ZT\ MSX-D0S2£>5JE-f5 
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LT, *DISKCOPY"£&£LT, 
RAMDISKfcfoSlZ LT#<fc ■) i: J© 

^*7 AiJiJ^r =1 >/ N°-f ;H" -5> C-tiv 
r MSX-C Ver.1.2j*«!iZ^ffo 
*DISKCOPY" l£ % 7 P y t°— T-* 
-r ^ ^±#wrt^^-^-"^c7)7 p y 
£ '-t* -r * 7 l-«¥T SH*iJtt p 

■7 > K fc£\ 7*-f * ? K 7 -f "7*** 

S MSX turbo R(Z(i s ^^^-5 
K7-ry«-2-&F«3iftLTl^«ai 

<7)ftt) l J C 256+ PA'-f h feLb 
<7)^-f > RAM £128* P/\*< hC7) 
VRAM^'[*lll?tLTl^(7)T\ t 

t&fcifc'bTz ££%*.£„ 
4-EUx ffli3$£LT N RAMt^ 

-f *7 £f£o DISKC0PY7°P 7*7 

A^*nrrso *^-§-xii, ram 

7"V *7lZjg;iT, 



• RAM-r -r * 7 (ZfJ U ^T «bftT 
U&l-mtiVf>RAM 

. -||^E- KT'WfttfVRAM 

wet* <t i tzofc^-rs^^^o 

•:r<77:£#T-tt^<, Hi^lz 

• t*-7 fcffiHI LT9->x U 7 

tzietrts 

• ac^TC^S^TtO^U a- A ID 

• #fg (1 DD) r*-f 7. 7 <7*£7 7"f 
•N^Pili (2DD) 7^-f * 7 CfiK 
IZ^TS 

£v.">-} <fc -9&7'-l'7 : '7 7 fc&&ft\ 
Zft"bli*f±*T\ *^-§-*'T*tZ 
|g£.T*#50>A N £'?A\ £tzt>ti- 

DCOPY1.C 

• DCOPY.H 

• DC0PY1.C 

• DC0PY2.C 

• MKDCOPY.BAT 

ffc<7)*DC0PY1.C*£* 1 — 7x'J 
7 Sr'tST 5 *DC0PY2 . C"(D.l4z 

Lctlo 

#define DEBUG 1 
its m&Jm&<niz7?-&%* 
St/FTSft^^^T; Z(7) 

••r^h/SJiiitais 



#define BLOCKBUFSIZE 
(512 * 2 * 9) 
(2, 1 [U<7)BD0SP— ^TI5E*# 

Z c^MCDf*^ 9 £ &&&Z t * 
cfc 7 tz 

IKI»\iiMin*(J'PWi: L<7)£'h 
ffi£*tf\ *memcmp"l2y ^ U — <7) 
P^fcit&TSo LSICP>/N°-f7 
— <7) v -f 77 U — iZfct ^memcmp*** 
#*T-aSnXL^(7)T\ MSX-C 
T'^ < LSICrCP >/KJI/t4* 
•g-C (i *memcm p" %-ifiB&f -2> 

RHSc*isSameMedia*l*s t-V 7s 
^/\ ,J 7^-^-*J:bKLTx 2^ 
<75x-f 7s ? *<|^| U y 7*-f ^T'$> S 

A^-5A\fci:illfxM^i:fc2DD 
T*AS*^-5*\ JtigrfSo 

RHB[*getDiskParam*(iBDOSa 
— ;K7)31H%-ftoTs T^-fTv^/N 

m (»*_dos_getdiskfree'(i % 
BDOSP— JWlBHfri^T, T-i 

niil5*H7)-7*n 7*7A(Zfc^lJfflT' 
# H: 1 ®$m&<?>X\ MS-DOScD 
*MS-C*P >/U 7-C7)7-r 7' 7 

^dcWaif'li, ®®( 



MiB[*dcRdBlock*(i, M*&-tr^ 
7-#-§-, -tz7 7-^ -tz7 7- 

^-^7P7 tf— ¥<< *-7ti si oWl 

c co r ^z ^tz jf*#T SS137>tis 

^<o(7) *dcPut*M»a%a-r *<t> 

T\ tzt7L& RAMT-V7.7(7)ft 
^»JtZVRAMlZfil#TSi: LTfc, 
MJ&^dcRdBlock'ti-itW* i#A 

^^ vv dcWrBlock"(i, :tlitt 

JM; 

■b, M»*main*(7)tt*(i(lfim^o 
MS[*dcOpen*ti, 7-^i'J7^ 
*rC^ # tZ^3KLv ^C7)*?r + P 

vv dcClose"(i, 7— 7x 'J Z^tcIZ 
mto fo£\$. I^T#^TI^ 
T't^T fcaWiSTfc'itfc'o 

7 h/fWcCSlH-, iz£z.\.Z—-fi 

Incompatible media. 
£3t7FLTs 7°P7'7A*^7T 
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t$=*JI/-7*U2/* 



3COPY2.C 



IZRAM^V^tZil^ft, 5E^ 

?iz##iA£ft& -hswizram 
T^-r :* ? tzflfcfrT 3 tzisb<D7°u <? 
=7 MA U * r- 3 0) *DC0PY2 . C" 



foT^f:*\ 5 < 7*7 "J — (7)7 
-^SJLrcb, " s _seek()"£^l 

&£!$ 3 1)\ =7 -f 77 U -CO^ -y 
^-7r-rJKZ(iC<7)MS![(75^ft 

extern STATUS_seek () ; 
<Ti 1 W'jZ^rc 

^(7)^B[*fdWork*(i, RAM-^-f 
*^{zfE£"7r-OK7>'7 7"f./l''N 

> K;u(M»*open ()*ASSf<iST\ 

^<7);£^5IJ *acWorkName*(i N 
RAM-r -f * ^JitZfES 77-f ;K7) 



-&ftf)izf?f$,T : b r 7-?m<n7T 

£T« HHBc McOpen* ti % 9- 

+ P / ?-f r- Ji-iiTiSfo S-ft W 
CiRAMx-f ^Srfs^OTT', RAM 

S^rli^^o BDOSP— ;U<7)68H 
(_RAMD)(Zj:oTRAM-r-f *? 

[Zjgc? ft*<fiA*J*¥ £ ft 5 <7)T\ 
"bods'RHBrt 3 *bdosh 4, KB»fl Jtt 

< % *callxx*WI8&te-5 o fc L RAM 



JU vv DC0PY.$$$"£7j--7 o > LTx 
RAMrV **<7>BSf;!g*:£!9'<So 

^655354-S^T L * o ~ £ £E75 
<'tzSbtz 16t:*'y K/\°VP>(7)C 

15 -5 long* £ i> n MA* A S A\ 

MSX-ClZl2longMA*&lH7)T\ 7 
7"f JK7)fi$ £ -7-V 7. ? (7)^ 'J (7) 
MnlfgCt £ < tz^ffiffo long 
M£ RSOOlfffl 5 < 7*? U -£>i 
iPLT, SfLUMSX-CAf^^tt 



^ 


* (C) 1991 N. Ishikawa 

* Free to copy and use without warannty 




Ei^fli^^jBZZi^EiMr-'' ll> J™ 8 B^B 




L_______ 




* on 20. Nov. 1991 bynao-i8ascii.co.jp 

*/ 
tinclude "dcopy. h" 
Spragaa nonrec 








' 


dcopy.h 




tdefine DEBUG 1 

tdefine BLOCK_BUF_SIZE (512 * 2 * 9) 




/* 

* dcopy. h 






* (C) 1991 N. Ishikawa 




uint uiMin(uiX, uiY) 




* Free to copy and use without warannty 




uint uiX. uiY; 




* on 19. Nov. 1991 by nao-i8ascii.co.jp 




1 




*/ 




return (uiX < uiY ? uiX : uiY); 




# include <stdio. h> 




) 




tinclude <io. h> 








((include <string. h> 








♦include <stdlib.h> 




«ifndef LSI_C 




tinclude <bdosfunc. h> 




int ne*c*p(pcX. pcY. uiLen) 




Sinclude <«ienory. h> 




char *pcX. *pcY; 
uint uiLen; 




typedef char tiny; 




1 




typedef unsigned ushort, uint: 




while (uiLen) 1 

int iTip: 




typedef struct 1 








char cPhisicalDrive; /* 


*/ 


if ((iTip = *pcX - «pcY) != 0) { 




ushort usSectorLength; /* 1 


♦/ 


return iTiip; 




char cClusterBlocks; /* 3 


♦/ 


) 




ushort usReservedSectors; /* 4 


*/ 


pcX++; 




char cFATs: /* 6 


*/ 


pcY++; 




ushort usDirectoryEntries; /* 7 


*/ 


—uiLen; 




ushort usLogicalSectors; /* 9 


*/ 


I 




char cMediaDescripter; /* 11 


*/ 


return 9: 




char cFATLength; /* 12 


*/ 


) 




ushort usRootStart: /* 13 


*/ 


Send if /* LSi_C */ 




ushort usDataStart; /* 15 


*/ 






ushort usMaxCluster; /* 17 


*/ 






char cDirtyFlag; /* 19 


*/ 


tiny isSameMedia(pdpl. pdp2) 




char acVolunelD[4]: /* 20 


*/ 


diskparaa t *pdpl. *pdp2; 




char acReserved[8]; /* 24 


♦/ 


{ 




( diskparaaj; 




return ue«cnp(&pdpl->usSectorLength. Spdp2->usSectorLength. 
1 


18) == 0; 


struct diskfree_t 1 




( 




unsigned total_clusters; 








unsigned avail_clusters; 




VOID getDiskParan(pdp. tDrive) 




unsigned sectors_per_cluster: 




diskparam_t *pdp; 




unsigned bytes_per_sector; 
1; 




tiny tDrive; /* t : current, 1 : A, ... 
1 


*/ 


unsigned _dos_getdiskfree(); 




if (bdos(_DPARM, pdp. (ushort)tDrive)) ( 




uint dcOpenO; 




fputsCCan not get disk paraieter. Yn", stderr); 




VOID dcCloseO: 




exit(l); 




VOID dcRewindO; 




1 




VOID dcPutO; 




1 




VOID dcGetO; 








dcopy 1.c 




unsigned _dos_getdiskfree(device. diskspace) 

unsigned device; /* IS : current, 1 : A. ... 


*/ 


/* 

* dcopy l.c 




struct diskfree_t tdiskspace: 






( 

XREG regs: 
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M»*dcGet*(J, jgCI, RAMt-' 
J*/Lh0>J: "9 fz % 7P7t- -tV 



£ *DC0PY1 .C\ fLT RAM^-r 

£ *DC0PY2 . C" £ #1 t fc<7)T\ HU 
#tt"7 □ >y t°— T-'-r 7.^(7)F*g^^r 

&t\, mz s ^^<7)*DCOPY2.C* 

7c t *.«:*# #:a*£aBiiT-# *> 

*? ij— >xfrf ?-# £"(:: fete 

h*DC0PY2.C*£&&LT, RAM 
x-r^^lZAp^T, y-T>RAMC7) 



VRAM£Sfl§U ^i"*?3t^<7> 



b/WJUi: 



Si 



^«H*«JU r MSX-C Ver.1.2j£ 

foT3>/\V^:; 7-^7 7 

-f ;i/#< 2 rBz^tiTi ** fetotz, 
p >/ \°< 7— ic-ftsco/ ^y^-y T 

-Ol'*CC.BArfcfc'7 Z t ttT'# 

fri\> ?<ntztbiz, U ^ h 4 co 

*MKDC0PY.BAT*£ffl^-g> o 

3T* P>/\°-OUM#iTftl£ 
*DCOPY.COM"£ *DCOPY.SYM" 
*<"(?# *(J-f£f MSX-D0S2(Z^ 



char 



cAReg; 



■e»set(&regs. 0. sizeof(regs)): /* for fale safe 

regs. be = .ALLOC: 

regs.de = device; 

callxx((unsigned)5. Iregs); 

if ((cAReg = regs.af » 8) - 0xff) ( 

return 1: 
) 

diskspace->total_cIusters = regs.de; 
diskspace->avail_clusters ■ regs. hi; 
diskspace->sectors_per_cluster = cAReg; 
diskspace->bytes_per_sector = regs.be; 
return 0: 



VOID dcWait(pcMsg) 
char *pcMsg; 

I 

fputs(pcMsg. stderr); 

fputsCType RETURN key then ready. ". stderr) ; 

do ( 



VOID 
uint 

I 



I while (getcharO != "Yn); 



dcRdBlock(uiStartSector, uiSectors, uiSectorSize) 
uiStartSector. uiSectors, uiSectorSize; 



char 
uint 



acBuf[BLOCK_BUF_SIZE]: 
uiSectorToRead; 



dcRewindO; 

uiSectorToRead = BLOCK_BUF_SIZE / uiSectorSize; 

while (uiSectors) 1 

if (uiSectors < uiSectorToRead) | 

uiSectorToRead = uiSectors; 
) 
Jtifdef DEBUG 

fprintf (stderr. "Reading froi sector X4u to %4u. Yn", 
uiStartSector. uiStartSector + uiSectorToRead - 1); 
Send if /* DEBUG */ 

bdos(_SETDTA. acBuf. 0); 

if (bdos(JDABS. uiStartSector. UiSectorToRead * 256)) ( 
fputsCCan not JDABS.Yn". stderr); 
exit(l); 
) 

dcPut(acBuf. uiSectorToRead * uiSectorSize / 1024); 
uiStartSector += uiSectorToRead; 
uiSectors -= uiSectorToRead; 



VOID dcWrBlock(uiStartSector. uiSectors. uiSectorSize) 
uint uiStartSector. uiSectors. uiSectorSize: 
I 

char acBuf [BLOCK_BUF_S 1 ZE] : 

uint uiSectorToWrite; 

dcRewindO: 



uiSectorToWrite = BLOCK_BUF_SIZE / uiSectorSize: 
while (uiSectors) 1 

if (uiSectors < uiSectorToWrite) I 

uiSectorToWrite = uiSectors; 
) 
Sifdef DEBUG 

fprintf (stderr, "Writing fro* sector X4u to Wu. Yn". 
uiStartSector. uiStartSector + uiSectorToWrite - 1); 
tend if /♦ DEBUG */ 

dcGet(acBuf. uiSectorToWrite * uiSectorSize / 1024): 
bdosLSETDTA. acBuf. 0); 

if (bdos(_WRABS. uiStartSector. uiSectorToWrite * 256)) ( 
fputsCCan not _WRABS.Yn". stderr): 
exit(l); 
) 

uiStartSector += uiSectorToWrite; 
uiSectors -= uiSectorToWrite; 
) 
I 



■ain() 
( 



diskpara«_t diskpara«Src. diskparaiDst: 

static char acMsgSrc[] = "Insert source disk. Yn"; 

static char acMsgDst[] » "Insert destination disk.Yn"; 

uint uiWorkKBytes. uiWorkSectors. uiCurrentSector: 

uint uiSectorLength. uiRestSectors. uiBlockSectors; 

tiny tlsFirstTiie; 

uiWorkKBytes = dcOpenO; 

printfCXu K bytes of work area available. Yn". uiWorkKBytes); 

dcWait(acMsgSrc); 

getDiskPara«(SdiskparaiSrc. 1); 

uiRestSectors = diskparaiSrc. usLogicalSectors; 

if ((uiSectorLength = diskparatSrc. usSectorLength) < 1024) I 

uiWorkSectors = uiWorkKBytes » (1024 / uiSectorLength); 
I else 1 

uiWorkSectors ■ UiWorkKBytes * (16384 / uiSectorLength) / 16: 
) 

uiCurrentSector = 0; 
tlsFirstTiae * 1; 
do I 

uiBlockSectors ■ uiMin(uiRestSectors. uiWorkSectors); 
if (!tlsFirstTi«e) I 

dcWait(acMsgSrc); 
) 

dcRdBlock(uiCurrentSector, uiBlockSectors, uiSectorLength); 
dcWait(acMsgDst); 
if (tlsFirstTUe) I 

tlsFirstTiw = 0; 
getDiskParai(&diskparaiDst. 1): 
if (HsSaaeMedia(&diskparaiSrc. &diskparaaDst)) ( 
fputsCIncoipatible «edia. Yn". stderr); 
exit(l): 
) 
I 

dcWrBlock(uiCurrentSector. uiBlockSectors. uiSectorLength); 
uiCurrentSector += uiBlockSectors; 
I while ((uiRestSectors -= uiBlockSectors) != 0); 
dcCloseO; 
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T<7=.Ml-7t l Ji>Z 



ipj£#<7)*DISKC0PY.C0M*£ <7) 

**DcoprtLtz 

1'y U 3.- h-rV *?7-f h £f£ 
j: o £ L tz; WWmEX'7 t -f 
— 7. y t -f JU&' < -V ? 7 -v y L J: 



TfcC3„ 

*DCOPY* 3 v > K ti, 1 £(7> K 

i < -7'T-mmzr-t * <7 wm# 

5, £l^lftTf>?f;C7)T\ $ 
■f K =7 < 7 A IZT7 P -y fc°— 7*-f * 
?£Aft5fc<7)£l££LT, K5 
-f ^<n^S&^: ¥<T}*7°i' a > £t£ 

{Z(J *DCOPY" £ tzrtXJj U A £ 

(Dmmt. ram?** x?<?mi)& 



fc'JT'o tffc\ ^?ftfV 7.^(7) 

fcfc^ VRAM-r'-f ^ ? £f Uffl 
T-S>4"£*LT, r DCOPY.COMj£ 

n 7^> Atf!]^-? T l n & BDOS =i 



T*(ZFS-A1GT<7)^ n n /\*- v a > 

£A¥T % Z £ *<-*?# fcifrg-Ktt, 
litfFp n p(7)|3fiT1i J fcirgt L X L n 

LWU„ Sfc, MIDIIIOUTCO 

Q & A =i-:r— fc^JHl-iW 

TV**-*. 




/* 

* dcopy2. c 

* (0 1991 N. Ishikawa 

* Free to copy and use without warannty 

* on 20. Nov. 1991 by nao-i8ascii.co.jp 
*/ 

# include "dcopy.h" 
Spragma nonrec 



extern STATUS _seek(); 

static FD fdfork; 

static char acforkNatefJ = •H:DC0PY.$M": 



/♦ 

* 

*/ 
uint dcOpenO 



■ake temporary file and return size by K bytes 



*/ 



XREG regs; 

struct diskfree_t diskspace; 

ushort usSectorSize; 

■eiset(&regs. 0. sizeof(regs)); /* for fale safe 

regs. be = 0xff00 I _RAMD; 

callxx((unsigned)5. &regs): 

if ((regs.be & 0xff00) =- 9) ( 

fputsCNo RAM disk. Yn". stderr): 

exit(l): 
) else if ((fdfork = creat(acforkNaie)) < 9) { 

fprintf (stderr, "Can not creat Y"XsY".Yn", acforkNaie); 

exit(l): 
) else if (close(fdfork) < 9 
II (fdWork = open(acforkNa«e. OJDfR)) < 9) I 

fprintf (stderr. "Can not open Y*XsY".Yn*. acforkNane); 

exit(l): 
) else if (_dos_getdiskfree((unsigned)('H' - 'A' + 1). Sdiskspace)) { 

close(fdWork) ; 

fputs("_dos_getdiskfree() : error. Yn". stderr); 

exit(l); 
) 

usSectorSize ■ diskspace. bytes_per_sector: 
if (usSectorSize < ljf24) ( 

return diskspace. avail_clusters * diskspace. sectors_per_cluster 

* (usSectorSize / 128) / 8; 
I else ( 

return diskspace. avail_clusters * diskspace. sectors_per_duster 

* (usSectorSize / 1024) ; 
I 



/* 

* 

*/ 
VOID dcCIoseO 



erase temporary file 



* rewind tenprary file 
*/ 

VOID dcRewindO 
( 

_seek(fdWork. 9. 9): 



/* 

* 

*/ 
VOID 
char 
uint 



trite temporary file 

dcPuKacBuf, uiKBytes) 

♦acBuf; 

uiKBytes: 



size t 



sizeTofrite; 



/* 

* 

♦/ 
VOID 
char 
uint 
I 



sizeTctfrite = uiKBytes * 1024; 

if (write (fdfork, acBuf. sizeTofrite) != sizeTofrite) 

close (fdfork); 

fputsCCan not write. Yn". stderr): 

exit(l); 
) 



read temporary file 

dcGet(acBuf. uiKBytes) 

♦acBuf; 

uiKBytes; 



size t 



sizeTofrite; 



sizeTofrite = uiKBytes * 1024; 

if (read (fdfork. acBuf. sizeTofrite) != sizeTofrite) ( 

close(fdfork); 

fputsCCan not read. Yn". stderr); 

exit(l); 
1 



mkdcopy.bat 



cf dcopyl 

eg dcopyl 

■80 =dcopyl/z 

del dcopyl. «ac 

cf dcopy2 

fpc dcopyl dcopy2 lib 

del dcopyl. tco 

eg -k dcopy2 

u80 =dcopy2/z 

del dcopy2.»ac 

180 ck, dcopyl. dcopy2, cl ib/s. crun/s, cend, dcopy/n/y/e: xaain 
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MSX^P^^VHH^ltH 





yn?3A/\ox 




7*>7? 







% mmmmoiLd) 



U &<£•£<#££ Lfc£ 2 iz v 3t^ 
TWc(t£*? a-)U$i£tz U T* 

SCREEN5C7)^<— i> $rn. *<-& 
1 £^zl£tLT, T^HSWiA 
MZ± tj !I®£4^T' 2 -frflj U 
.HUtZ^— v (Wjl^^s TffiQl- 

(DSAVHOK& 3 -;U L Tx FD9 AH 

,* -f > ROM<7)38 H #ife£ 3 — JU 
L*fo ZC(iBI0S<7)v-v>7x 

— 7';h:^tT^T, :cfrib 

msxtWotts *y u &#*qsju— 

flJUiA<^^Ei^— ^>T1i, r 
^•T<7) U yX^-^ PUSH^jFfrT* 
*?-y:?tZ{$#L/z&£, FD9AH 



MSX21ilJS$<7)Vv>T'te/\- K 
9 x 7 iZ J: $*ft* ? P ~)WJ*m I 

*>&££-?% ?— urMffi&mi 
bWOSt U ^ U fc>ft Z <D* * 
P -;M£fllli 1 Hffi±1*t3W L T 

&/Cl*t**f. 

MSX<7)VDP(zJ: 5SMJ&&1-U* 
^I»!£ tK^RHMS*^ U * To 

M«»JUiA<&-£U:, M®<7) 

^^RHMssa *; i^* ^ c*. mi 

f^£<7)7^!|<7>«^7B#lZSg 
£f*tiJfJ&#t\ — Jl£tZ;£» 
W&frW*X^ZT 

t>i±ti& mm<7>- #_h£ffig(75 

7^H<7) 2 * flff TSIJ 'J iA<^ £#§£ 




l<7)H.KEYI^P-^LSTc 
#(Zg6NH£*IJ 'J &#A<8£ I 

tzfr£lfr*W<X, bLto^ 
h (i*FD9FH#±fc<7) H.TIMI £ P — 

" <F)& t * — * * + > ^ * ~f=7 

JBfU ^LTfcWcU-v*? 
— £P0P^T'MIT, RET^^" 
"0* -f >;u— ^X-H { J * "to 

g-^7)flj U &#*Qffi»U— 7 1 > * 
iS&ITf **§£»»& H.TIMK7)? 

•< "7-sij u '^.h-nvp &&. » £ r 

£\ Zc^yP^'^ATIiH.KEYI^ 
7-y^^^Tl^-To 
SAVHOKT'Cis ^<7)7-y^?r» 

#Wx.*frf^ t, ^ fe £ z z izis 

#LST 
d)SETHOK%-ffll^TH.KEYI^|# 

H.KEYI ^ £ #(7)f IJ U iA^MH 
)\y— 3->^i> * >7°-?Z> «t -5 tZ$ 

^^#-§-^VDP(7)P > h n— ;U 
U-vT.^— 19(Cgg:^Lx VDP(7)P 
> [•P-Jl'Uy7?-0(7)t:'7 h 
4 «r 1 (z L * To - <7)*fl3l Jifcl* 
C(7))ii#^^oT^^Tr?) J: "5 tz 
LXUtfW 

$ns«t-5(z^tjiro 

I »;&#**«£ L /!:*:£ tt INT 



iA^^^r ^ 7^— ^ * U- v 7. ^ — £ 

ia^ffllTtfH£;f ^f-^ 

l/y7?-0(7)t'7 h ltfl Kh 

mMMU. ^T-^UyXj'- 
1 (Dt'-y h A< 1 &<b£lMCJ; 

^tiJUiA<^^(7)T- N SBili^(7)it 

-a-csiEo^. ^^^tt-a-tsiEi- 

IEIX IE1T(iR7F^— v^r^tl 
■rnOs 1 C^^ls INTEND^v 
^>7 LSTo 

INT(i, MSXOftffJ&ftftm/lj 

-fVrtT't^t^^-y^^-^' 
7 ^ -y ^ (Zj^#$ tlT * N "b p — iU 
$n*fc«)x ^^-y^^USHL 
XT'<T<ni'i'X9 — &P0PwTr 
X'MU REY^^X^JLiTo 

(i, RESH0K«rP-;H-5 
VDP<7)P> h P— ;UUv7.^ — 
(7) t*-y h 4 ^- (Z LT^ ^SiH 

(z < tsiijt;iA^iA<f^L'&:i^-5 

(zLT^bv l»#LTJ)Of:y7. 

rA7 7^ ^-H.KEYIIZM I £ 1"o 

^S^yjiA^lZti, ZC7)(5^ 

(z b i ^ < itsni&Stt&jtlb U i 

<7)»iJ 'J iA^-^1*^ >b 5^! I iz y -f > 
;i/-^>tzH5¥>£cD/c#) N msx 

<7)i/^r- AfiJU iA^^i^H^TL 
£1±A, Z\(Dtzlsb, *—***> 
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H-5* Y/fiir<ntzi)-\, 



uvzjznwm- 



jtstmtisttc j; 5 m y £*iaa 



; BIOStK 

WRTVDP EOU 0047H 

CHGMOD EQU 005FH 

GTSTCK EQU 00D5H 

8IGFIL EOU 016BH 



•/7Ti7-JiU7. 7^i?S« 



WRPORT EOU 

RDPORT EOU 

RGOSAV EQU 

H. KEY I EOU 



CALL 



LO 
CALL 



0007H 
0006H 
0F3OFH 
0FD9AH 



A. 5 

CHGMOD 



LO 


HI. OOOOH 


LO 


BC. 6A00H 


LD 


A. 44H 


CALL 


B IGF 1 L 


LD 


HL. 8000H 


LD 


BC. 6A00H 


LD 


A, 88H 


CALL 


BIGFIL 



START: CALL SETHOK 



>-f y>l-?y 



MAIN: 



XOR 

CALL 

CP 

JP 

CP 

JP 

JP 



A 

GTSTCK 

I 

Z.GHK1 

5 

Z. CHK2 

MAIN 



;MSX I WV&fyZ>-ji> 

;yXTi7s>*SST5 

•.jxtfu—y*— K^sicrs 

;V R AM^-vO^WlCfS 
lVRAMt-v 1 ZmztZ 

;ii y &*i&an--y v*^ -j $ tz&m 



;*-V(l-±*<»3fttl>n«. CHKKv + >7 



*-v;i-±*<tf3nfcia 



CHK1: 



CALL 

LD 

LD 

CALL 

XOR 

CALL 

CP 

JP 

JP 



RESHOK 

B. 0001 Ml 18 

C. 2 

WRTVDP 
A 

GTSTCK 
1 

Z.CHKla 
START 



:«lJi£**!a>l'-? : V*tt)yi«T 



;*-v;p±*<tt&3ti«S"CiS-3 



* - v ji>t*<» * tifc i * ©sua 



CHK2: 



CALL 

LD 

ID 

CALL 

XOR 

CALL 

CP 

JP 

JP 



RESHOK 
8. 00111111 

C. 2 

WRTVDP 

A 

GTSTCK 

5 

Z.CHK23 

START 



;Sjyii*&an--y vswyntr 



;*-v;WlJ'*-3n«Sfi|o 



H. KEY ISSYSHOKICgg, «j?t5 



SAVHOK: LD 
LD 
LD 

LDIR 
RET 



HL. H. KEYI 
DE. SYSHOK 
BC. 5 



piOGKAM|f€USE 



LDIR 

£1 

RET 



RESHOK: ID 
AND 
LO 
LO 
CALL 

Dl 

LD 
LD 
LD 



h. k e y i *N69jyii*»a^-?v*ojy)tr 

:S£S«ijy &*©£****! filler 5 



A. (RGOSAV) 
11101111B 

B. A 
CO 
WRTVDP 



HL. SYSHOK 
DE. H. KEYI 
BC. 5 



H. 

SETHOK: Dl 
LD 
LD 
LD 
LD 
El 

LD 

LD 

CALL 

LD 

OR 

LO 

10 

CALL 

RET 



keyi icaiyi£#*i8n,-y v£«fcf* 

;»iyji*fcaa;L— ?v, iNT«s«ts 

A, 0C3H 
HI. INT 

(H.KEYItO).A 

(H.KEYItl).HL 




B. 106 

C. 19 
WRTVDP 

A. (RGOSAV) 

000100008 

B.A 

CO 

WRTVDP 



:ffly&#*g3i<*-e«j£368#-3*1r-;» K 
::£SE»9iy&*©£4£pTfig|;;T5 



sjyi^s&s^-yv 

Dl 



LD 

ID 

INC 

IN 

AND 

JP 

LD 

OUT 

LD 

OUT 

IN 

ID 

OUT 

LD 

OUT 

AND 

JP 

INTEND: INC 
INC 

POP 

POP 

POP 

POP 

POP 

POP 

EX 

EXX 

POP 

POP 

POP 

POP 

El 
RET 



A. (ROPORT) 

CA 

C 

A. (C) 
10000000B 
N2. IE0 

B. 1 
(O.B 

8. 80H + 15 
(O.B 

A. (C) 

B. 
(O.B 

B. 80H+I5 
(O.B 
0000000IB 
NZ. IE1 

SP 
SP' 

IX 
IY 
AF 
BC 
DE 
HL 
AF. AF 1 

AF 
BC 
OE 
HI 



;»ya*«it 

;Si6«8i] y &#7 ^ a£W^5 

:Sui»»»iyii*Msi4Lri>ntf. iec\ 



;*S«ffly&*a<**fel,TC»fttt. I El". 



;fjyji*W5I 



iE»8Sjyii**E4»#©ftia 



LD 

LD 

INC 

LD 

OUT 

LO 

OUT 

JP 



A. (WRPORT) 

CA 

C 

A.0001111IB 

(O.A 

A. 80H+2 

(O.A 

INTEND 



i£^-vOlc-fS 



*«89jy>£*36<fe«©*tt3 



IE1: 



LD 

LD 

INC 

LD 

OUT 

ID 

OUT 

JP 



A. (WRPORT) 

CA 

C 

A. 001111116 

(O.A 

A. 80K + 2 

(O.A 

INTEND 



;S,tIIJ^-v 1 IC-fS 



:9jyji*tea;i/-?>*«iy>i-r 



->X^A©H. KEYlBSrSfcftffl/'^r- 
SYSHOK: DS 5 

END 



103 




MSX7J^-03>hP-ib3-K 



MSX-BASIC(DF*ggBlZ(i N ?— a7JI/*lM/£&trc 

lit)^e)^:l^^l^5^^:x<7-^^^|l<vnrL^•g)o : 5■/u 




Q&A 




T(J ? t 'Die L T ^tzW£<r>fr 



*fn 



(IT < (i MSX T 

-?uTcoM&£L 
J:o£,fk>TuiTo fC-T, ^ 
^l^##3tfiK£85LTV.N*(7>T 
T£\ BASIC^vS^ggtZ^V^T 

<7>;fc£tM.T<fcr£v,\, 

^W*k (Jtf^ + Tfc 

ZCD£IlH7)ffFp1 

7°p 7=7 AcoM& fc A 3*I£itA, 
t-<££> ^tftn^A,£## 

(J, 77*-frbOT£ftTv.^ 

tftSTTfttfo ZC7)*(iMSXT*y 

4'6x — JgligfcfcfcLTfc^T 

iSfJfcV,^ £«3500R[M] 

fc*L msbtzij\ 7°P T- fcf£^ T 
'>Lft&i3mLWX\ hi 'PL 
til* v h 'O? v U — X£ fcTT 

ZCDv'J — 7*k77*— frbtH 



4-£-§-ttiP;«L(?)£v,^;b 

lifoT, 4fSiJ:£II£LTQ&A 
<7)*S£|£i|fiA,T**fc(7)£fo fc*>^> 
A,SflKrafc*£*LT**\, 

•So Sfc^Kft(z(iai:o^ib3^ 
GOMEP^-^TV^T, MEP^^ 

(5 £1tt^Jf *m^-e& 3 z t 

SrHftLTl^o g££LT(iM 

r 7=y7?tt;SfflffiTj 

•"RPGCOfF'JTJj 
Z(7)(5ASZfcV.^V.^AS-ifo 

£TO500R*rb7uOR£Uof- 

£ fc BASICS b— »K LT7 

tb?z><r)t\ mi: < at*-? Mo 

? -> U - X<7) r v -> >|§AF1 jtzo 
/ \°— h K 2 (7) 2 fflttrfg7c£ ftT 

S fe^^-^J/U/O K7"-y 7T 

r MSX turbo R x^-Z^OF 
7 -y <7 j 
r MSX Datapackj 



12"^" 


u-K 


mm 


LF 


OAH 


*ft3r 1 ^T#&3o 


FF 


OCH 


&$:%.<n'<-i><n%m $. TSIS. 


CR 


CDH 


'fr<n^MiX-m. : bo 


ESC A 


IB 41 


1 'fr<r>*:£ ? £i/6-f >^c:-f &o 


ESC B 


IB 42 


1 }t<7)*# £ £l/8-f >fi:tSo 


ESC Snnnn 


IB 53 


^' : 7 7-f>'^(7)7° l J>h„ 



I ^"f ft h T 7 *?—i? b fctiKS? ft 
#IZOInT« 1 7J2000R[^SIJ] 

fcrsttn^ +*->7°ju7°p^ 

A<7)Ao /£ x-r 7s ? fe A-3 X I ^T 

tztzLztih <r)%te v v >mtz 

i snare # ft i ^(5 iT(7), *^c u L' 



BASIC-C7°'J > 




nti'ct i wxrt>\ 7°u > ? -co 

AV{1 -;up— Ki:i^ 

PRINT^^-^ CHR$MS[T-fi6"5 ^ 
i: (z J: oTPIHlz^ g- ?"$ ftjftm 

PRINT CHR$ (12) 

— ;up— K^'^^^^lll^z, U 

-3tt7*'J >^-§IJ^fflCOP> h p 

—,»up— ftx*i fccot)ffl.©v?n 
*8&?y7n >^-izffl,«?nx^ 

S, «*wft=i > h p-;up- K 



fc, MSX3^^7°'J>7-i:LT^ 

^U %■ A(f % c: a: Uft&ttAV. 

■b^^-izJl^miS? tiTi^S AS5 
W7 l )>?—li.. ztil>xt.<nzi 
> h p— ;m— K^fflSLTl^ 

* fc^ 1J^fC0fcC7)(ZOlNT(i 

^-^-^7°'J >9-z:t[z.im 

IZ£*A,&P> h P— /U3— K^A 

SjMZO I. ^ (*¥*#*><?> 7* 'J >^ 
-COl^BJ»?rct <I^TIi-<T^ 
T(fLV\ 

zxm^-bfoz-szsWfo^ 

<fcrtgm\zr>^xtzti\ bVBBi 
\,tzi>Y p— ;up- K&ls&^Tg 

5:^tz 7 > y- =7 -f > £5 K Nfz »h 
ffiA L tz U T S 7°p ? 7 A ff fifc 
fflLfc3>ha— ju=i— Ktt-3? 

• OE ffiAEP^ 

• OF ^AEP^W^ 

•1B 58 7>?'-7-r>R7F 
•IB 59 T>y—=7 4 >M& 

tztzLZtlh(Dzi— K^T^T 
c7)7°U > ^ —Xi£z. Z>ir t v. > 1 1 , 
^-7v.-»-5t>(tT«ftv,\ Tfezco 

*Dg(7)P > r- P-^UP— K(i/"CV.N 
TIV7)7°'J >7-(Z(i^|^LTlN 

s«-rftwT\ Ajt^/^-^o 

?T'J7 h 1 %MXhhz.tft> 
*^«t-5{C, p>hP— ;up— K 
tiCHRSM^i: LPRINT^^-^m^ 
^•t>-tt-Tfi6fflr*o U 7 h 1 Tf^ 

ffl l tzim-iz h \^hk umwh 

%\,*?*£<r>x\ m$-h<r>y°')>5 
-(nmm* X < M^T^ i ^ i ^ 
W£z\> Y p— ;U3— K4ttL"C 
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<f& 



BASICTiOilgfc 
£16j«7)«£ 
fSfc^fzouT 

%lTZ>£$IZ*&H"£^1(D$: 
i£l^$ TtlK & H 8000JiLL<7)16M 

®.*-\mmzm%it 1 1? %>t s 

16M<7) rfr >b FFFF £ T*<7)fi| 
^ 10>ttfc<7) 0^65535 a*X(7) 
fitlZg&TSfca&HlJ* #7>«fc-5 
IzTfttfJ: ^XT^o 

MSXX 

A%=-32768 
i:Lfci:L*-ro ^LX 

PRINT 0-A% 
£Hfrt &£{»#- 32768C: & o 
TLJuSt. ^>T*TJ:fco 



JJfo 



mmzr>^x(Dnwz $?&$. 

S»fc*o aU;-2li2££-f£0 
IZ£S&X&S Z(7)#;L7J£16 
«tZ^XlJ#>X<*cfc7 MSXX 

«t < ti&btiz 2 /N*-r h i6»i»(c#j 

l*T % 1 £J£f£ (Z#£&& x & 
HFFFF tzteo 2*J£.T£0lZtj: 
S8rtS&HFFFE£f ZZT-*>«fco 



'J7.S1 



&HFFFF + 1 = &H10000 
i; * fc i W A x fc KR3 L T < * £f 3 
■3 felt £*n > t°a - ? -x-iffi 

fflX# tV,vHr<7)ffiLJ 1 A<»J (*#*.£ 
U<Z>*Uo ? ft/v/t'o Z Z X(£ 2 

4 «f JjUL<7>fif JbA< »J (ite^ L X L 
$ 9 -JUI^ttJ: -9 £*<> Z 
<7)#;t7JtJ 3 > t°n - * - **m 

TS-hT-J: <fi&bftS#x.^fcf„ 
ZXttebtlzMtlo $r>£ 
<n}5%X'%.<n®&m.t>T t2'U 
h T^b-B-Slfl#£*>+i-(J65536 
£t$i)%:<7)X\ tamffi-zmcnms 

w)tt<n®.£jmtz>o tztzL 

a<'j&¥fc<7>T\ HBg(7) £ Z S 
(£ - 32768/r "b 32767 a* X* £ H to 

rz£cfc*. 

fcfcLSlMlff^&So &£&£ 
A%£Lfc£# 
-A%=(N0TA%)+ 1 

£i*l s&rofctz/S u im<Dtz 

££#, Z<7)^ttJ:<ft^n5o 
fcfc*LSofcz£lzt>£-3£f{tz 

A%=&H8000= -32768 

(F>t£tz MR?><r> , m§[zbh 

ZiMMlts b*h< Z<7)iZ2(7)*1t 
# «b S6£"f 5 BASIC-f > ? - 7° U 
? — <7)/ \'^?f £ #/t <b tlS 

&#"b«)X(5Ll\, 



10 ES$=CHR$(27) 

20 LPRINT ES$;"X"; 

30 LPRINT "BASIC" 

40 LPRINT ES$:"Y":CHR$(14) ; 

50 LPRINT "y 1>W 







= B 


+65536! 


10 
20 
30 
40 


INPUT A$ 
B!=VAL ("&h"+A$) 
IF B!<0 THEN B!= 
PRINT B! 



^^X^pLtlo * T 32768feLb 
<7)&£1 SiSttZttfcT^fc/^Z 
ft [ifiHWc'o 65535 1 X-to&fe h 
vio? (ZHEX$M#fcte^T;fctf> 

RJieiii£<7)*|£*f 4#*7>16ii 
&£ ^«b 65535 Z X<7)10it&lZ 

'J&g(Zfc*„ U * h 2 £jf,X<*-J: 
•9o Z\<n-?n7t7U$\lMmk£ 

^\mmmz : m&z>z?n7z> 
a*? fc£Ltea<fc<7>»iifc**§ 
^ *tt&rsjE<7)atzitrj:-5tc 

LXl^So 3C«T5r^X*-J:-5o Z 

ZT(iS3B[B ! <75ffiA<ft(7)(BciZ3a: 

Si:#,B! (Z65536^riP||:LXl x 
So ZtiTaSMi*—!r-fe 

z <7)7"p 7? AtiS3BclzasSS! 
*^x.^l^X-;±«LX(5L^ 



*M.tt'n*?iX : ,$:SbZ><F>XTi}\ 
£ tz FORX^C £*m, VN I "^ * J " 
«Hse•5z^:*<^l^T-r*< % ^w 
^<7)fc<7)(if^^:ivc7)T'L «t ?^o 

-2(Z£*A/j:fe<7)X 

/c7°P ^7 A £;fc*r fj ^=r < t s 
fc»(z, vio-5(i-ie(7)S3S[<7>ttK 

^-^^T <fc "9 ^«iU(Z LXfc < (7) 
tfm\\tz a tz tz L MSX(7)^|g[^ It 
%$M<7) 2 ^C^ L a^jgij L x < n^ 
y.*nx2l£r>i-t&& l tz Let -5„ 
££*_(& *ABC"'^:^,^^^^i: 



A4 



piOGMAMHOfSE 

NV ABB*^:l^•9^»^^ mc%g&t 

LXiat3tiXLS-9o S3SfS«T- 
#4/^(t2S^{Z*fc«)T#Jl^ 

^^^^•a^Xt^S J: -5 ^a3»€ 
fctt-5 z t tiX# 4't\ fc £ JU& 
% kW£^n&lt&&j,t?jt 

SmtzF0R^^^*X*l "^ 
VV J **<«£ <«*3tlSSSfc**<, Z 
tKi^rFORTRAN j £^i mWitf 

m*£fi*i£x^tzz*>frh<ntfm 

Z(7)$)In/c^1/z 

*.* < ^(Z^X(S'< 

(7)MSXtZi#^lZ 

/ \°7. 7 - K %-|93t L X9Qr> X L S 

l^(7)X-L«fc-9^o ^<75*i:MSX(7) 

BzHZtlX, tf— At) BASIC bX' 

(Wgnm/iimn£i:) 

^gl %£tiXL$o£, 

^^ L ^t^^ ^ MSX(2j£5»j L 
ttt\ BASICS fo*,S^(7)Z t, >r* 
-Af -if<7)(IA\7)y7 h fe±SWs6 

L*^L, «^<7)^ati«WL^o 




LGRAPHJ+ - £ [STOP]* — £ *¥ L 
Wb«E£A*lS£s /<X9— 
KA**— K^rfRtf LXBASI07) 
=»BWii®tz^s $>£ti, 

SET PASSWORD ** 



2»i3»^-fu^>-;b 



iL^*3l+r, ^^ttQSA^* 

fc^»? ;^^tta^©77r-v 
>vhizMor, y— Af^fiKtiS/'j 
-XS3!ak VyllvW-iV 



^ T107-24 

w !l»««KMItlU6-11-1 

3t BASIC©?$«» 



105 




K?a25/w\w:ai 






GO UP 



^^ la/r r a msx rambkbu: 



nmm 




ffi 



?MSX^-Uog 



-<73f^ B B p(^ '89^11^ •§■ (7) r G0 

i^l^daito <£oT r GOUPj£ 

5 re «> IZ it MSX ^— L r> frtf'j* 
Sffo ^°n ^9 Ati 2 ^z-JHrft 

* L T "INT1" tUi77^i^ 



T'-tz-7*U Ifc^T U 7 V 2 £A 

T"tZ-7"LT(5Ll\ $*—£*» 
&£$«; *INTr<7)(5-5«ffL 
T < titH$X-T-tz 

* f- £ fcti h U #- A T*5 "9- -f 
-f (75 5 If -OUt!)\ M^<7)fFfflTv\° 





* ite* -v -5 ? ? -<7) id # A^fc U ffSo 
fio §7><7)^VtZ^fcoTSil«x 



ifcs [Ml [N]fcL<«MJ#-B 



s ^ 6 o 7 k yw 7 

•>3-h7"p^7Ai:LT lirfrfc 
(S/KyMfiffliSffl) 






f_ frit-^^ 


5 — 100 


ttSHISit 


102 


St)**©*^ 


105-116 


§«©«» 


119 — 150 


5¥©»» 


1 55 — 192 


i&rothSU&Ji 


200-292 


*©&» 


294-299 


**«* 


300-460 


»11*?A-?V 


479-488 


'^-7'j^ffia 


500-550 


*x*<ttiT»©«aa 


600-690 


**©»)* 


700-850 


Slif^ft-^v 


900-940 


g«*<¥>enfcia©«aa 


950-990 


^»ft»©Jaa 


1000-110 


x>5»4 vyaa 



X. Y 

T S 

S P. S Q 

Z I 

S T 

ES (n) 

EX (n). E Y (n) 

BX. B Y 

TX (n). T Y (n) 

SX (n). S Y(n) 



«©as 
g«©ae-K 



Xx-v» 

»©asi 
»©s« 
*'*©)£& 
*©ffias 
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piOGiAMffOUSE 



3#XlfliJ 



i&$j$n 



COSMOWARS 



^nm/c.G.A. 



MSX2VRAMB4KW± *HMSX^-Uog 



tfA^Tfc^'Mfcx.TSa^j: ? 
fF n n n fc MSX^<- L oStf'J&StZ 



U— i»— 2 (i v a -f 7.7^ -f -y ? T* 
A^-ffL-3 tffc L tzf 5 1 x*/u 
* < $»z3lt>-T*S¥<7)P¥i&<7)S 




SBfr 



6 (D 7 K A <f 7. 






•>•>•>•>•»•>•>•>•>•>•>•>•>.>•>.>•>.>.>•>.>.>.>.>.».>.>.>.>.>•>.>.>.>.>.>.>.>.>.>. 



(if/WPPTf) 



THREE COLORS 



BE-hlzffc "b If* 3 fe<7) n v £ s 
■t'^TI^UfefzSix.szfctfBW 

<7)7';7 v a >/\°X;u<r— A "/P 
•So £fU* h 1 ^rA^LTil^ 
'J * h 2 ^tA^J U *THREE.BAS* 

L I \, y-A <&ft& £ £ (i U * b 

1 ^^fLT<ti 

IfytX+'tZtttthtltz** 
z^??— „ Zl^itij— 7JM 1 — 
T'_bT*^zi(i#, *^-**- 



MSXe VRAM64KW± 

UXKBllE^-vlzJiK 

(2'LT<ft5 HS-htzteg^ ^ v 

St0)3%7)3VA<£>fj x :*-feP<7) 
?rf*oTii-9fe(7)PV^^ flt 

<7)fea^?-»lf-*3t<7)JIIlz^ftT5 

— mi** 'j 7-£r 



J ^ _1 ^ 1 

?jt a%a^aM 

A m ■■-'■■' A AT I 
A A MAAM 

m a a 

AAA' I 
A 'ST A -J | 




teifc't ^TOTa^hfrii-jfji^j:,, 



#/lB1^7'n'yi'OT : t5i^Jffl* ! *-f > h, 



fflfr&CDFK/W* 




LtztZZtfS.V frt£ T -f f7 
Hl^(z zfu— LTfrtz t Z h X- 



'p*m »; jA^^s r* i: tv-5 ^^s 

( t -3 z: -) <7>«> U &c z i: *<t-# /t 

fcfi> 1*1^75^ fj {Z( J "J * h *<S 
T #" S J: -5 'i^*^ -S &o ^ i o 
tUzJL^.X\ hi 'PLis.it %> 
zttfX'£Z>t&n? 





frff^li^ 


10- 


20 


ftw&is. 


30- 


50 


£-r h;i/ffiffi©s-TT 


60- 


120 


> -r >ffiffi©ftfiS 


130 


-260 


*■< y)i-?y 


270 


-280 


S^*Lfe4gf©ffig 


290 


-320 


^?-->?i;7-ffliEi 


330 


-360 


iv^vf vy&a 


370- 


-430 


#a^7Ji/-y> 


440- 


-450 


«K*|S]©7'-*' 


460 




B GM(5?-J 


470' 


-540 


X?-v©t'-$' 



•iFTI^tfrtteAA-ib^'Jil-B-S^'c 



[ 2 


£mm ] 


M(n) 


X9— i >d7'~ 9 


X (n). Y(n) 


-Kfa*- 1 ? \-)\/ 


w. x.-v.-z 


*>7?J-fflg|)lffl 


B L (n) 


K©» 


B X. B Y 


SO^Kffl 





«3^«=lv©» 


S T 


Xr-91 


P 


*-t-5i7*'-©/\ - 5' — > 


IvICS. MG 


BGMfcSffi 



zJB-Y-yuo^ummm 



3(7)P-7— rtti/a-h^P 
^'^A^S^^fdc i^SB(Z)P*3§lZ 
{BIPBtt&Uo ^ffl^(z[otfiK*4t 

ur, f^s©ai^wx.izj^L;rs 
-7iztz-z7'L/fc±r\ ttp/f, ft 






% 



T107-24 

s^asiEpg»iiJ6-ii-i 
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of tware lontest 

fflPUZZLE TOWER 



Bttft^ofc. *z"»eb\ itixfcAa 



£ #J 3 %R '89^ 3 E -§"<7)fUiT' 
Vug* T'A fc -** £ L Xffit L 
f-fF« a p<7)&&Jfo, ®®rtt33F*,T 

ife,^c7)p i X'tz t' u ft < - £ *< § 

7'p-y?^ JttftSfcAJ&lJi::;? 
ftx L 1 1 m* Z$ * **£T-f 




*ft ^ %■ £ # i:(i±.¥t->Sffl U 

£T N C<7)ffcS<7)*fr& x *)**£ 

flrtttjfefcite* ^cosficoftfiuj 

CO fc fc L >> £ tfKfcMW > h ^ 

fcco/c'o fc £ tME. h t (=/ \ v if 

Z£14T-#3CDH, 

l3^>Tfc£coi£Kn 
M&~£(4T*#^ 
■otzVTZo itzWi 



• ttffi-ttf T -I" ■? A<7)SS: ci^-? ? tffo 5 w #$£& 






>"r* \-"X'te,frt£Z Kfrh<T>* 
'JvtJl'T'P ^ A &£& LtU 

5Q7jPtt < W<bft*-fo *LTlg2 
j& ^3igUAiSLfc# n a nlZ(is 
* ft **ft3075 P3 £ 1 07? R 0*N <b 

ft**, 

t£&s A«LfcffeSitt@^ 8 H 
UTAKERUfr'bSgTn^ft-SK r MSX 



iK§i£ft&::£i-&oT^3:-ro 

f**\ •f&A<7)7 P n?7A(7>£aSi: 
fcti— SP^r 3 t°- L tz fcC0(4@ < 

XWt&iZI^Xlt. MSXVtf 




a: § li S -f^m<nt£ i ^'- a v t. 

xa £*&?-*'.&£*<* *«, -^ 







• -OTBBTtt. »«&£ LT*tfMi§„ 



itHrtifr-tj 1 ?-? fc+i? 4 h;uH®/-„ 



^>(Zffltt-rS«*\ TAKERUfr 
b £96 $ ft * r MSXv *f $* > 7° P 
?*7 A-9— fcf* jlli&ii $ ft?> C 

#fc\ MuSICA('90%10fl#TKB 

•fC^77>i 

Gy7n?7l**fffiLtz*7<(T 

(7P7t'-7'^^,*t7 b^ 

©MSX, MSX2, MSX2+, turbo R 
<7)SIJo 'JZ^RAM, VRAMcT^^o H 



«ISAcoftHff, K£ ) «r^K L fc fc 
(7) (1s^£c£l-(4'J&-f 7 U **7"$- 
^>ltT < *f£l\)o <Cfc\ 20IR^<I 



r 



=107-24 
JRS?SSE»»1J6-11-1 

V7h0xP=l>x7.h^ 
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SHORT PROGRAM HOUSE 




U7.S^-i/ 




up mmmcDm 



ittmz] 06^-^1; 



5 CLEAR 100 

10 SCREEN 1 ,2.0: COLOR 14,0.0 

1 5 WI DTH20 : KEYOFF : POKE&HF923 . &H 1 7 : POKE&HF9 
22.&HFC 

17 FORI=5824T06 143: VPOKE 1 . 32 : NEXT 1 : FORL=0 
T033 : V=5824+L*32 : VPOKE V , 33 : VPOKEV+22 . 33 : V 
POKEV+ 1,33: VPOKEV+23 . 33 : NEXTL 
20 CALL TURBO ON 
30 DIM HAC31 ).ME<3 1 .40) 

36 DATA 0. 8. 4. 12. 2. 10. G. 14. 1.9. 5. 13. 3. 11. 7 
. 15 

40 FORI=0TO15:READHA< I ):NEXTI 
50 FOR1=0TO40 

60 READ A: ON A GOTO 70.80.87 
70 A$="":FORL=0TO31 : READBS: B=VALC "&H"+B$) : 
IF B>255 THEN 75 ELSE A$=A$+CHR$<B> : ME<L. I 
>=B: NEXTL :GOTO90 

75 B=B-256 : READA : FORM=LTOL+A: A$=AS+CHR$< B > 
:ME<M, I )=B:NEXTM:L=M-1 : NEXTL: GOTO90 
80 AS=" " : FORL=0TO 1 5 : READBS : B=VALC "&H"+B$ > : 
IF B>255 THEN 85 ELSE AS=AS+CHR$<B) : MECL . I 
>=B: NEXTL: GOT086 

85 B=B-256 : READA : FORM=LTOL+A : AS=AS+CHRS( B ) 
:ME<M, I )=B:NEXTM:L=M-1 : NEXTL 
88 FORL=0TO15:ME<L+16, I )=HACME<L, I )*16)+HA 
CMECL, I >MOD16>*16:A$=AS+CHR$i:MECL+lG. I)>:N 
EXTL:GOTO90 

87 A$="": READA : M=0 : FORL= 16T03 1 :ME<M, I >=HA< 
MEC L , A )¥ 1 6 5+HAC MEC L . A 3MOD 16 5*16: A$=A$+CHRS 
<MECM, I >>:M=M+1: NEXTL 

88 FORL=0TO15:MECM, I )=HACMECL . A)¥ 16 )+HACME 
<L.A>MOD16)*16: : AS=AS+CHRSCME<M. 1 >>:M=M+1: 
NEXTL 

90 SPRITESC 1 >=A$:NEXTI 

95 READ AS: IF A$="¥" THEN 99 

96 A=ASC< AS >*8 : FOR I =ATOA+7 : READAS : A=VAL< "& 
H"+AS): VPOKEI . A:NEXTI : GOT095 

99 VPOKE&H2004.&H71 : VPOKE&H2005 , &H6 1 : VPOKE 
&H20 1 4 , &H57 : VPOKE&H20 1 5 , &H7F : VPOKE&H20 1 6 , & 
H75 : VPOKE&H20 1 7 , &H4 1 : VPOKE&H20 1 8 . &HB 1 : GOTO 

500 

100 DATA 1 . 100. 7. 24, 65. 66. 5A.3A. FA. FA. 67.0 
. C0 , 40 , 00 . 40 , 1 00 . 2 , 24 , A6 , E6 . DA , DC , DF , 5F , E 
6 

105 DATA 2,03,107.4.27.63.40,100.6 
110 DATA 2,100,3,01.103,5.01,100.3 
115 DATA 2, 100. 5,07, 0F.0F, 07, 100.5 



120 DATA 2.00.00.01 
F, IF. 07 

125 DATA 2, 100,3,01 
F,07 

130 DATA 1 .00,07. IF 
F. IF. 07. 100,2.C0,F0, 
0,00.00 

135 DATA 1 .00.00,20 
C,3C, 18,00,04, 100.2 
0,38, 17C,2,38,00 

140 DATA 1 . 100.2.20 
2.70. 100,3, 10, 100,3, 



145 DATA 1 
6, 10. 100,3, 



100,2,06 
02.67.F2 



150 DATA 1 , 100,3,04, 
00.20.C0. 100.3 
155 DATA 1 .00.20, 10. 
1,03,03.00,07.05.00. 
6,40.8C.DC,D8.40,80. 
160 DATA 1 .00,20. 10. 
F,0F,76.36.78. ID. 00. 
4,40.0C,7C.F8,00,78, 
165 DATA 3.11 
170 DATA 3, 12 
175 DATA 2.00.00.03. 
E. IF, 0F, 03, 00, 00 
180 DATA 2, 100,2.03. 
F.03. 100.2 
185 DATA 2. 100.4.03, 
190 DATA 1 ,00,01 ,06, 
3,01 .02,03.01 .02. IF. 
3.F1 .3E.F2.7E.81 ,8E. 
195 DATA 1 ,02.02,61 . 
E,0E,0F,07,06.01 ,FE, 
B, 13.43.03,03.01 ,82. 
200 DATA 3.18 
205 DATA 3, 19 
2 10 DATA 2.00.C0.73. 
D. 1E,2C,73,C0.00 
215 DATA 2.01 .02.05. 
2. 03. 02. 05. 0B. 08 
220 DATA 2.01,01,61. 
9, 1A.07.04.0B 
225 DATA 2. 101 .2,00, 
2, 05, OB 

230 DATA 2.00.60.70, 
0,01 .00, 101,2 
235 DATA 1 .21 .36. 16, 
6,18. 1C.0C.0C. 04, 84, 
C,EC,F0,F8.F8.F0.70, 



03,03, 107, 4, 33. 78, 7F. 3 

07. 10F,3.63.F8,FF.7F,3 

39,30.70,79, 17F,2,3F,3 
F8.F8. 1FC.4.F8.F8.F0.C 

70.20,01 .03.03.01 , 18.3 
18. 18, 00, 80, CO. C2. 80,0 

04, 0A, 04, 00. 00. 71. 189, 
7C.FE, 1FF,2.F3.F3,FE,7 

09.09.06. 100.3, 10. 100. 

F0, 60, 00. 02, 00 

08,08, 100, 14,04,04,00, 

.07,0A.0D.2D,34,21 .2 
14, 38, 70, EC, AE, 46, E 

07. 0A. 00, 2D, 34. 23, 2 
, 14, 38, 70, EC, AE, 46. E 



OF. IF. 1E,3D.3B„3B.3D. 1 

OF.0F, IE. ID. ID. 1E.0F.0 

07.06.06,07,03, 100,4 

0C,0D.37,71 ,78. 3D, 1B.0 

E0 , 1 C . FF . FE , FD , FD , 1 B . 8 

7E 

El .F2.75.77.3A.3C. 1C. 1 

FD.FC.FD.FB,3B,03. 1B,0 

81 

2C. IE, 1D,3C,D6,D6,3C, 1 

0E. 1D,3E.7D,B3,C3,01 ,0 

70.29. 10. 100.2,01 ,31.3 

101 .2.00. 101 .2,00.02.0 

29. 13.04.0B.OD,01.O0.0 

09.08. 10. 18. 16.0E.OE, 1 
CC , D8 . E8 . CO , 38 , 78 , F0 . E 
60 



•i>iU[3'j£-f-tz-7"LT<ft hLXtlS.T.XW, 
WiftLtzh, -Jg'J-tz-y h^fLT^bilt 

7Y s iti £ o it t fr Wc (5 -? #i ^ ^e; 











. ^m 








H -4-»-»n» -»-»-»»■»•»•» ■••«-'- 






i 


3COH = 


^9 
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J1YP = K 




■■■■■■■■ 


■ _i ...•.« 




j 


a 


■■ 




LJ 












Bfi 








pp .^ 






a* 










Eg 




STiiBS 












s *"* 


E 




















j ^m 


fiBHS_ 
■■■■■■ 


' ^VWl^l 



240 DATA 2. 42. 65. 35. 2E. IE . 0E . 34 , 3D, 5B . 5B . 3 

D.3C.3C. 1C, 1C.0C 

245 DATA 3.27 

250 DATA 2,01 .OD.0D, 06. 04. 03, 07, 16,35.35. 1 

6,07,07,03.03.01 

255 DATA 2 . 100 . 4. 03 . 67 , F6 , FG , 67 , 03 , 100 . 4 

260 DATA 1 . 100.4,03.07,06,06.07, IB, 3C,3C. 1 

8. 100.3. 18. 3C.3C.D8.E0. 60.60. E0 . C0. 100,4 

265 DATA 2.01.02,03,01.00.03,07,06.06,07,0 

3.00,01 ,03.02,01 

270 DATA 3.32 

275 DATA 1 .01 .00,01, 

F, 80. 00.80.B0.7E.fi . 

280 DATA 1 .01 ,03,03, 

0, CO. CO. 1A0. 4. 60. 1C0. 3, 40. CO, 08 

285 DATA 1 

3, 100.2.80 

0.00.00 

290 DATA 1 

2.03. 100,4 

0, 100.2 

295 DATA 2 . 07 . 1 f , 3f . 7f , 7f , If f ,5 . 7f . 7f , 3f . 1 



0D.7E.8F.F0. 1FF.6.7F.I 

OF. 1FD.6,FE,F0 

107.5, 103.3.02.03,00.1 



00.01 .03.07, 1 OF, 4. 07. 03, 03. 02.0 
CO , E0 , F0 , 1 DO , 2 , BO , E0 . CO , CO , 40 , C 



00. 03, OF, IF, 13F. 2. IF. OF. 03,0 
F0 . F8 , FC , F4 , EC , 98 . FO , CO . 40 , C 



296 DATA 2 , 03 , 07 . 10f . 2 , 1 1 f , 5 , 10f , 2 . 07 , 03 
300 DATA ! ,FF.FE,FE.FE,FE,FE,FC,80 
305 DATA +.3C.7E,FF.FF.FF,FD,72.3C 
310 DATA H,38,27. 1F,3F,3F.7F,7F,7F 
315 DATA &.7F,7F,7F,3F.3F, 1E.27.38 
320 DATA X , 1 A . E2 , FA , FC , FC . FE , FE . FE 
325 DATA - , FE . FA, F2 , E4 , 3C, 3A, E2 , 1 A 
330 DATA . ,F4,E8.F4,E8,F4,E8,F4,E8 
335 DATA * . CI . A2 . CI , A2 , C 1 . A2 . CI , A2 
340 DATA 7,E8,F4,E8,F4.E8.F4.E8.F4 
345 DATA T , D5 . AA. D5 . AA. D5 , AA, D5 . AA 
350 DATA 9.18,18,18,18,18,18,18,18 
355 DATA * . 66 . BD, BD, BD. 66 . 24, 18 . 3C 
360 DATA /,3C,7E,7E,3C,24, 18. 18. 18. ¥ 
500 FORI=0TO5 

505 READAS : FORL=0TO3 1 : B$=fi 1 DSC AS , L+ 1 , 1 ) : B= 
VALC"&H"+BS:i: VPOKE &H800 + C I )*32+L. B: NEXTL. 
I 

510 FORI=0TO37 

515 READAS:F0RL=0T019:BS=MIDS<AS.L+1 . 1 ) : B= 
ASC<BS): VPOKE &H3000+I*20+L. B: NEXTL. 1 
520 FORI=0TO28 

525 READAS: FORL=0TO 15 :BS=MID$< AS. 16-L. 1 >:B 
nSCCBS)-&H41 : VPOKE &H1400+ I* 16+L. B: NEXTL. 

' JO F0RI=0TO5 

535 READAS :EORL=0TO31 : BS=MIDS< AS. L+l . 1 > : B= 

ASCCBS)-&H41 : VPOKE &H1200+I*32+L. B: NEXTL. I 

540 FORI=0T05 

545 READAS: FORL=0TO3 1 : B$=MID$< AS, L+ 1 . 1 ) : B= 

VAL<"&H"+BS): VPOKE &H 100O+I*32+L, B: NEXTL, I 

550 F0RI=384T0983:V=VPEEK< I ) : V1=VPEEKC 1+1 ) 

: VPOKE I , C NOTV 1 > ANDC VORV/20RV/4 ) : NEXT I 

560 FORI=0TO10 

56 1 READAS : FORL=0TO 1 9 : B$=M I DSC AS . L+ 1 , 1 ) : B= 
ASCCBS): VPOKE &H3500+ I*20+L . B: NEXTL, 1 

600 • TEKI 

602 DATA 2 1 1 132322CC1242322 1 1 B4B4B2334422 



603 


DATA 


2666622331 44 1 33662 7777BB33 366622 


604 


DATA 


22AABAA2777777721 188686888886622 


605 


DATA 


22CCC99161622499422999992C3 13 122 


606 


DATA 


266AA2 1313B13B13BBCC13B22A8A8A22 


607 


DATA 


22222222222222222222222222222222 


610 


DATA 




612 


DATA 


!!!!!!!!!!!!! 


614 
616 


DATA 
DATA 


i j | i t i i t i i i i i ■• 


i i i i i i 


618 


DATA 


++++++ 


620 


DATA' 


!!!!!!! ++++++ !!!!!!!" 


622 


DATA 


++++++++++++++++++++" 


624 


DATA- 


!!!!!!! 


626 


DATA 


i i i i i i i » 


628 


DATA' 


!!!!!!! ! ! 1 H ! 1 " 


630 


DATA 


Ml!!!! ++++++ 


632 


DATA' 


!!!!!!! +++++++" 


634 


DATA 


++++++ !!!!!!!" 


636 


DATA- 


+++++++ !!!!!!!" 


638 


DATA 


HX ti% " 


V 
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640 DATA" f &" " 

642 DATA" HX " 

644 DATA" &' " 

646 DATA" !!!!!!! HX " 

648 DATA"! !!!!!! &' " 

650 DATA" MX 

652 DATA" &" 

654 DATA" Hx I I 1 I 1 I 8X " 

656 DATA" &' !!!!!! &' " 

656 DATA" III! ! ! ! ! " 

660 DATA"! ! M" 

662 DATA" ++++++++++++! 

664 DATA" !++++++++++++" 

666 DATA"+++++++++++++ 

668 DATA" +++++++++++++ 

670 DATA"+++++++ +++++++ 

672 DATA" ! ! ! ! 

674 DATA" ttx 

676 DATA" &' 

678 DATA" Hx 

680 DATA" &' 

682 DATA"**?**?*************? 

684 vex t\" j ; j j j j J j J j j J J j ; J ; J J s 

700 DATA AAAAAAAAAAAAAAAA 
705 DATA AAAAAAAHUVBBBBDD 
710 DATA AAAAAAAIQRCCCCDD 
715 DATA AAAACCDAAAAABBDA 
720 DATA EEEEAAAAAAAAFFFF 
725 DATA J JJ JFFFFAAAAEEEE 
730 DATA AAAACCQRORSTOPOP 
735 DATA AAAAAAFFQRQRICCC 
740 DATA 1 IQRNNNNl 10RMMMM 
745 DATA HHUVKKKKHHUVLLLL 
750 DATA AAAADDDDDDDDAAAA 
755 DATA ZYYOPOPOPOPOPYYZ 
760 DATA AAA'DD" AAAZYJJYZ 
762 DATA HHHHHFFFFFF I I 1 1 I 
764 DATA FFFFAAAAAAGGGGFF 
766 DATA AAAAB C( CAAAAC¥¥¥ 
768 DATA AAAAYZAAAAAAYZAA 
770 DATA GGGGGGGGGGGGGGGG 
772 DATA AAA) ) ) )) AAA~~~~~ 
774 DATA AAA~~"~~GGG) 3 )) ) 

776 DATA AAAEEEGGGGGGG 

778 DATA AAAAAAAAAA AA 

780 DATA 'abab'AAAA^abab" 

782 DATA ZYcdcdYZZYQRQRYZ 

784 DATA AAAJAA' ababCAAAJ 

786 DATA AAABabab ' AAHAAAC 

788 DATA AAAJOPOPSRQRI AAB 

790 DATA AAACQRORYBcdcdJA 

792 DATA ef AAAAAAAAAAAAAA 

800 'MAP 

805 DATA AQQKBCBCQQAEFGI IHKCBCDKDCEDCBDDA 

810 DATA ALLLKJFOGLMMLMALLMPPTI IHNAILLLLL 

815 DATA ALALALAFEUSSTOTAAERRUAALRRRRLRAV 

820 DATA AAAAAALLLLUBFGMMIHKLKLKLZYYZ¥ZAA 

825 DATA AQLQL INJAZ C¥YZYZ (¥¥ tZYZZYWYZ¥¥AA 

630 DATA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA) 

900 -HENTA1 

905 DATA 01110000000100010100000001111100 

910 DATA 01111000000000011000000011100000 

915 DATA 00110100000000101000000000000000 

920 DATA 00001111111000000001100100000000 

925 DATA 01100000100010000001100000000000 

930 DATA 00000000000000000000000000000000 

950 DATA " CONGRATULATIONS 

952 DATA " 

954 DATA " You completed Your " 

956 DATA "Misson. 

958 DATA " *»T" fj SimCXC II 

960 DATA "'94,0*916. 

962 DATA " Sim »-5tfAa 8ft SBC *V 

964 DATA "t->U°ZVr ViOHft. 

966 DATA " IT4.**V :«'<**»*" 

968 DATA "£9tr8 t VlMLft 

970 DATA " »-»<y fTA-T" <«ft**.. 

999 CALL TURBO OFF 

1000 SOUND 1,0: SOUND 3 , : SOUND 4. 120: SOUND 
5,0 

1010 A$="SC0RE":X=25:Y=3: GOSUB 1 100:A$="00" 

: X=30 : Y=4 : GOSUB 1100: A$="HYPER" : X=25 : Y=7 : GO 

SUB1 100 

1020 A$="SHIP":X=26: Y=l 1 :G0SUB1 100: AS="STA 

GE":X=25:Y=15:G0SUB1 100 

1025 A$="! !!!!!!! ! " : X=23 : Y= 19 : GOSUB 1 100 

1030 A$="GO UP" : X=26 : Y=2 1 : GOSUB 1 100: A$="C. 

G . A . " : X=26 : Y=23 : GOSUB 1100 

1040 VPOKE&H2004,&H7F:FORI=S 1 H2008TO8,H200B: 

VPOKEI . &HFF:NEXTI : LOCATE 7 . 10 : PRINT"G0 UP" 

:LOCATE 2 , 12 : PRlNT"-»ToL- i.m S - •»< L*}-" : LOCA 

TE 5. 17:PRINT"PUSH BUTTON" 



1045 VPOKE &H2O04.&H7O:FORL=14TO1STEP-13:F 
OR I =&H2008TO&H20OB : VPOKE 1 , &HE0+L : NEXT I . L 
1050 IF STRIGC0>ORSTRIGC1>THEN1090ELSE105O 
1090 PRINTSTRINGSC23. 10 ) : RUN" INT2 
1100 A=LENC AS > : Y=6 1 44+Y*32 : FORL=XTOX+A- 1 : B 
$=M I DSC A$ . L-X+ 1,15: VPOKE L+Y . ASC< B$ ) : NEXTL 
: RETURN 



5 P0KES.HFD9F , &HC9 : CLEAR0 , &HF380 : MAXF I LES=0 

10 _ TURBO ON 

15 DEFINT A-Z 

20 DIM TXC2>,TYC2>.TAC2),TBC2>,ESC6:>,EXC6> 

, EY< 6 > . ZXC6 ) , ZYC6 > . ZZC 6 > . SXC8 > , SYC8 > , CYC 2 > 

,EZC1> 

25 'HN- 

30 ST=0:ZI=4:MB=0 

40 REST0RE41 : F0RI=1 T08 : READSXC I > , SYC I > : NEX 
TI 

41 DATA 0,-1,1,-1.1.0.1.1.0.1.-1,1.-1.0,-1 
,-1 

50 X=BB : Y= 1 00 : SP= 1 : SQ= 1 : TS=2 : HF=RNDC -T I ME > 
*144+16:HY=1 

51 POKE &HFCAB. 255: POKE &HFCAC0 

52 SOUND7, 176: SOUND 1 . : S0UND3 , : SOUND6 , 20 : 
S0UIID4, 100 

53 A$=STR$C ST+ 1 > : YY= 1 6 : GOSUB7 1 : AS=STR$< HY 
>:Y i =8:GOSUB7 10: A$=STR$CZI > : YY= 12 : G0SUB7 10 
:G UB700 

54 l-ORI=0TO7:TYCI)=200:EYCI >=200 : NEXT1 : CYC 
>= 1 : CYC2 >"=»- 1 : EZCO )=2 : EZC 1 )=2 : MA= 1 2 : MC=0 : B 
0=0 : SO=0 : SN=0 : SM=0 : KA=0 : WA=0 

55 IF ST=5 THEN MB=30 

100 PUTSPRITEO.CX.Y). 15 . : PUTSPRITE l.CX.Y 

>, 12, 1:UA=UA+1:WB=WAM0D2:WC=UAM0DC12+CST=4 

)*4):WE=CUAM0D6)¥3:WD=CWAM0D12)¥4:WF=WAM0D 

4 : SR=SP+SQ*WB : ONWB+ 1 GOTO 102.105 

102 SOUND8,SO:SOUND0.RNDC 1 )*128 : SO=SO+CSO> 

) : SOUND9 . SN : SOUND2 . SN*2 : SN=SN+ C SN > > : SOU 

ND10,SM:SM=SM+CSM>0) 

105 K$=INKEY$: IFKS="M"0RK$="N"0RSTRIGC3 )TH 

EN950 

110 S=STICKC0)ORSTICKC1) 

1 15 X=X+SXCS)*SR: Y=Y+SYCS)*SR: : Y=Y+CYCCY~4 
0>/130+l)*SR 

116 XX=X:YY=Y:GOSUB801 : 1FV>32THEN90O 

119 S=STRIGC0>ORSTRIGC1 > 

120 FORI=0TO2:PUTSPRITE 1+2 . CTXC I ) , TYC I >+< 
TYCI >=-48>). 15,2+WB 

130 IFSS=STHEN140 

132 ONTSGOT0136, 135, 136 

135 IFSANDTYC I >=200THEN TXC I>=X: TYC I >=Y-7 : 
TAC I )=-26:TBC I >=0 : SS=S: SN=13 : GOTO140ELSE 14 


136 IFSTHENFORI I=0TO2: IFTYC I I )=200THENTXC I 
I >=X+C I 1-1 >*8:TY< I I )=Y-ABSC I 1-1 >*8-8-C 11 = 1 
ANDTS=3>*24:TAC I 1 )=-18 + C I I =1 )*5-CTS=3ANDI 1 
=1 >*34:TBC 11 )=I 1-1 :SN=13:NEXTI I :SS=S:GOT01 
40ELSENEXT I I : GOTO 1 40 

148 TA=TAC I )¥4:TYC I )=TYC I 5+TA+CTYC 1 )=200)* 
TA:TXC I >=TXC I 5+TBC I >:TAC I >=TAC 1 >+l : IFTYC I ) 
>200THENTYC I )=200 

145 XX=TXC I):YY=TYC I >:GOSUB801 

146 IFV=43THENG0SUB810:SM=13:TYC I )=200ELSE 
IFV>32THENTYCI >=200 

147 XX=ABSCX-TXCI>>:YY=ABSCY-TYCI>): IFXX<5 
ANDYY<5THENI=2:NEXTI -.GOTO900 

150 NEXTI:SS=S 

155 FORI=0TO6: "TEKI 

160 IFEYC I >=200THEN165ELSE200 

165 I FBO= 1 THEN500ELSE I FHE=0THEN 169 

167 A=MAMOD8: IF7-I=ATHENESC I >=EZC0>:EXC I ) = 

HF : GOTO 1 7 1 ELSEPUTSPR I TE I +5 . C . - 1 7 ) . : NEXT I 

:GOTO300 

169 IFRNDC 1 >*100<KATHEN170ELSEPUTSPRITEI+5 
. C , - 1 7 > , : NEXT I : GOTO300 

170 R=RNDC 1 >*2:ESC I >=EZCR>:EXC I )=RNDC 1 )*14 
4+16 

171 EYCI >=1:ZZC I >=1 :ONESCI )G0T0172. 173. 174 
, 176, 178. 178, 182, 184, 186, 188, 190, 192 

172 ZXC I)=1+CEXC I)>79)*2:ZYCI )=4:ZZC I )=20: 
GOTO200 

173 ESCI)=2:EYCI )=-17 : EXC I >=-16 : ZZC I >=0 : GO 
TO 200 

174 EYC I )=1 :ZXC I )=-l+WB*2:ZYC I )=4:GOT0180 

176 EYCI>=174:ZXCI)=-2-CEXCI)>80>*4:ZYCI>= 
-20 

177 IFABSCEXC I )-XX32THENHF=RNDC 1 )*144+16: 
GOTO170ELSE2O0 

178 ZYC I )=66: ZXC I )=2-CMAM0D2)*4 



180 GOSUB8O0: IFV>32THEMHF=RNDC 1 >*144+16:G0 

TO173ELSE200 

182 EYCI)=RNDC1>*170:GOSUB800: IFV043THEN1 

73ELSEEXC 1 >=XX*8~4 : EYC I )=YY*8-4 : ZYC I >=8 : ZX 

C I >=EYC 1 )+32:ZZC I )=1 : IFABSCEYC I 5-YX48ANDA 

BSC EXC I >-X X32THEN 1 73ELSEGOSUB8 1 : GOTO2O0 

184 EXCI)=RNDC1)*5:EXCI)=EXCI )*32+24: EXC I ) 

=EXC I >-EXC I >MOD8 : ZYC 1 )=0 : ZXC I )=EXC I >¥8-3 : 1 

FK3THENONBO+1GOT0173.51 1 :ELSE200 

186 EYC I )=-CWB=l )*172 : ZXC I >=0 : ZYC I 5=0 : GOTO 

177 

188 EXCI)=RNDC1)*80+56:EXC1)=EXCI >-EXC 1 )MO 

D8-4:ZXC I )=4:ZYC I )=RNDC 1 )*1 10+30-.ZZC I )=1 : I 

FI>3THEN173ELSE20O 

190 EXC I )=EXC I 5-EXC I )M0D8 : GOTO200 

192 EYCI)=172:ZYC1)=-16:GOT0177 

200 ON ESC I > GOTO 201.207,211,229.241,247, 
25 1 .259.263.267,275,281 ,285 

20 1 EYC I )=EYC I 5+ZYC I )¥8 : ZYC I >=ZYC I )+ 1 : EXC I 
)=EXC I >+ZX< I )*WB 

203 XX=EXCn:YY=EYCI)+8:GOSUB801: IFV>32AND 
EYC 1) >ZZC I 3THENZYC I >=- 1 5 : ZZC I )=EYC I )+60 : ZY 
CI )=ZYCI )-ZYC DMOD8 

205 PUTSPRITE5+I .CEXC I ).EYCI )). 14,4-CZYCI) 
<0>:GOTO 290 

207 PUTSPRITE I +5, CEXC I ) , EYC I) ) , 8 . ZZC I >¥2+6 
:ZZC I )=ZZC I )+l :FORI I=0TO50 : NEXT I I : 1FZZC I ) = 
1OANDI=0THENESC I )=5:ZZC1 )=RNDC 1 )*6:ZZCI )=Z 
ZCI )-CZZCI )=0) 

208 IFZZCI)=10THENEYCI)=200 

209 NEXT I :GOTO 300 

211 XX=EXCI):YY=EYC I )+8:GOSUB80 1 :ONZZCI) G 

OTO 213,217 

213 IFV>32THENEYC 1 >=EYC I )-EYC I )MOD8 : ZZC I >= 

2:GOT0219 

215 EYCI )=EYCI >+ZYC I )¥8+l : ZYC I )=ZYC I )+l : PU 

TSPRITEI+5.CEXCI),EYCI)), 11. 12-ZXC I ) : G0T02 

90 

217 1FV=32THEN:ZZCI >=1 :ZYC 1 )=0:GOT0215 

219 EXC I >=EXC I )+ZXC I >*CWB+1 ):EYC I )=EYC 1 >-< 

WC=0)*8:G0SUB800: IFVO32ANDUCO0THENZXC I >= 

-ZXC I ) : EXC I )=EXC I >+ZX< I )*2 

221 PUTSPRITE 1+5 , CEXC I ) , EYC I ) > . 1 1 . 12-ZXC I 

)+UE:GOT0290 

227 EYC I )=EYC I )-CWC=0 )*8 : PUTSPRITE 1+5, CEX 

CD.EYCD). 11, 12-ZXC I >+WE: GOT0290 

229 IF ZZC I )>1 THEN 237 

231 GOSUB8O0:IF V<>32 AND ZZCI)=1 THEN 235 

233 ZZCI)=0:IF V<>32 THEN ZXC I >=-ZXC I > : ZYC 

I)=-18:ZZC I >=2:GOTO290 

235 EXC I )=EXC I )+ZXC I ):EYC I )=EYC I )+ZYC I)¥4: 

ZYC I >=ZYC 1 )+l: PUTSPRITE 1+5, CEXC I 5.EYC I )), 

15, 16:GOTO290 

237 EYC I )=EYC1 )-CWC=0 )*8 : ZZC I )=ZZC I >+l : PUT 

SPRITEI+5,CEXCI>.EYCI)), 15. 15+WD: IF ZZC I >= 

24 THEN ZZC I >=1 

239 GOTO 290 

241 EYC I >=EYC I )-CWC=0)*8: PUTSPRITE 1+5, CEX 

C I ),EYC I )>,WAM0D14+2.21+ZZC I >:GOTO290 

247 EYC I )=EYC I )+ZYC I )¥8 : EXC I >=EXC I )-ZXC 1 >* 

CZYC I )<0):ZYC 1 )=ZYC I 5-1-WB: GOSUB8O0 : IFV<>3 

2THENESC1)=2:ZZC I)=0:SO=15: IFV=43THENG0SUB 

810 

249 PUTSPR I TE I +5 , C EXC I ) . EYC I > > , 7 . 27+UF : GOT 

0290 

251 XX=EXCI):YY=EYCn+8:GOSUB80 1 : ON ZZC I > 

GOTO 253.255 

253 EYC I)=EYCI )+ZYC I >¥4: ZYC I >=ZYC I)+l: IFV= 

32THENZZC I )=2 : G0T0257ELSE257 

255 IF V<>32 AND EYCI>>ZXCI> THEN VPOKE 61 

12+YY*32+XX,43:EYCI>=200 ELSE 253 

257 PUTSPRITEI+5.CEXCI ).EYCI )> , 8 , 16:G0T029 



259 YY=6146+ZXC I )+CEYC I )¥8 )*32 : XX=6 146+ZXC 

I )+ZYC I )*32:F0RI I=0TO3: VPOKEXX+I I ,32: VPOKE 

YY+ 1 I , 1 6 1 + 1 I *8 : NEXT I I : PUTSPR I TE I +5 , C EXC I ) , 

EYC m, 1 1 + CEYC I)>167)*11, 15:0N WB+1 GOTO 2 

61 ,290 

261 EYC I >=EYC I )-CEYC I X 169 >*8-CZYC I )>20)*6 

:ZYCI )=ZYC D-CEYC I >>88 > : GOTO290 

263 EXC I )=EXC I 5+ZXC I )¥10:EYC I )=EYC I )+ZYC I ) 

¥10:ZXC I )=ZXC I )+SGNCX-EXC I )):ZYC I >=ZYC I >+S 

GNCY-EYC I )):GOSUB800: IFVO32THENS0=15 : ESC I 

)=2:ZZC I )=0 

265 PUTSPRJTE 1+5 . CEXC I > . EYC I ) ) . 15 , 3 1+UF: G 

OTO290 

267 IFZZC 1 >=1THEN273 

269 EYC I )=EYC I )-CWC=l ANDBO=0 )*B : GOSUB80O : A 

X=XX : AY=YY : AZ=ZZC I >-2 : FOR I I = 1 T08 : XX=AX+SXC 

I I )*AZ : YY=AY+SYC 1 I )*AZ : VP0KE6 1 44+YY*32+XX . 

33+UB* 1 : NEXT I I : ZZC I )=ZZC 1 )+WB : I FZZC I ) >7TH 

ENEYC I)=200 





piOGMAMffOUSE 



271 PUTSPRITE 1+5 , CEX< I ) . EYC I ) ) . 8 , 4+ZZ< I >: 

GOTO290 

273 EYC I )=EYC I )+ZXC I )¥8:ZXC I >=ZXC I 5 + 1 : PUTS 

PRITEI+5.CEXCI ).EYC I )).8, 15: IFEYCI)>ZYC I )T 

HENZZCI )=2:SO=15:GOTO290ELSE290 

275 EYC I )=EYC I )+ZZC I )¥4:ZZC 1 )=ZZC I )+l : GOSU 

B800: IFVO32THENGOSUB810:ZZC I )=0 

277 XX=EXC I )-8:YY=EYC I ):GOSUB801 : IFV032TH 

ENGOSUB810:ZZC I )=0 

279 PUTSPR I TE I +5, C EXC I ),EYC I )), 14,35:GOT02 

90 

28 i EYC I )=EYCI)+ZYCI)¥8:ZYCI)=ZYCI)+1+UB: I 

FZYC I )> 16THENZY< I )=-28 

283 PUTSPRITEI+5.CEXCD.EYCI)). 15.36-CZYCI 

)>6)-CZYC I)>-4):GOTO290 

285 ON ZZC I ) GOTO 287,288,289 

287 PUTSPRITE1+5.CEXC I ),EYCI )), 1 1-WB*11.39 
-CZXC I )> 12 ) : ZXC I )=ZXC I ) + l : IFZXC I )>20THENZZ 
C I)=2ELSE299 

288 PUTSPR I TE I +5, C EXC I), EYC I >). 1 1 , 40 : GOSUB 
800:VPOKE6 144+YY*32+XX, 192: EYC I )=EYC I )+8: I 
FEYC I )>176THENPUTSPRITEI+5,C0,-16):ZZCI )=3 
:EYC1 )=12:ELSE299 

289 GOSUB800 : GOSUBB 1 : EYC I )=EYC I )+8 : I FEYC 1 
)> 176THENEYC I )=200 : GOT0299ELSE299 

290 EX=ABSCEXC I )-85 ) : EY=ABSCEYC I )-86 ) 
292 IFEX>850REY>86THENEYCI )=200 

294 FOR! I=0TO2:EX=ABSCTXC I I )-EXC I ) ) : EY=ABS 
CTYCI I)-EYCI)> 

295 IFEXC10ANDEYC10ANDTYC I I X200ANDESC I )<> 
5THENTYC I I )=200:ESC I )=2:ZZC I )=0:SC=SC+1 : SO 
=15:GOSUB700 

296 NEXT I I 

297 EX=ABSC X-EXC I ) ) : EY=ABSC Y-EYC I > > 

298 IFEX<10ANDEY<10THEN480 

299 NEXT I 

300 IFBO=1THEM600 
305 IFWO0THEN100 

310 LOCATE0 . : PRINTCHRSC27 ) + "L" : MD=VPEEKC5 

120+MC*16+MAMOD16) 

320 MD=12288+MD*20:FORI I=MDTOMD+ 19 : V=VPEEK 

C I I > : VPOKE6 1 46+ I 1 -MD . V : NEXT 1 I 

400 MA=MA+1 

405 IFMAMOD16=0THENMB=MB+1 : EZC 1 )=EZC0 ) : SU= 
ST*32+MB:EZC0)=VPEEKC2048+SU):KA=2-CEZC0)= 
7)*15-CEZC I >=3)*5:MC=VPEEKC4608+SU):HE=VPE 
EKC4096+SU) 

406 IF MAMOD8=0 THEN HF=RNDC 1 )* 144+ 16 

407 IF MB=32 THEN BO= 1 : FORI=6882TO6902 : VPO 
KEI,33:NEXTI:FORI=0TO7:EYC 1 )=200 : NEXT I : ON 
ST+1 GOTO 420.420,425,420,420,420 

410 GOTO 100 

420 BX=80 : B=25 + C ST=4 )*20 : BA=- 1 6 : BB= 1 : BT=3 

0-CST>0 )*30 : GOTO450 

425 BX=24 : B=6 : BA=2 : BB=- 1 8 : BT= 1 5 : GOTO450 

450 FORI=5T015:PUTSPRITE I . C0 , -16 ) , , :NEX 

T I : SOUND8 . : SOUND9 , : SOUND 18,0 

455 FORBY=- 1 6TOB : GOSUB850 : FOR I =0TO4013"0 : NEX 

TI .BY: IFY<BY+24THENY=140 

460 GOTO 100 

479 ' P-UP 



480 IF ESC I )=5 THEN 485 ELSE 900 

485 EYC 1 )=200:SN=I5:ON ZZC I ) GOTO 486,487. 

488.488,488 

466 HY=HY+1 : A$=STRSCHY) : YY=8 : GOSUB7 10 : GOTO 

299 

487 SQ=SO+ 1 : SQ=SOMOD2 : SP=SP-C SQ=0 ) : GOT0299 

488 TS=ZZC I )-2:GOT0299 

500 R=RNDC 1 )*100:ONST+1GOTO5 10,515.520,525 
.530,535 

510 IFRC80THEN173 

51 1 ESC I )=1 :EXC I )=BX:EYC I )=BY+16:ZXC I )=-l- 
CRNDC 1 )*10<5)*2:ZYC I )=24:ZZC I )=0:GOTO200 
515 IFRC75THEN173 

518 ESCI)=7:EXC I )=BX-BXM0D8+4: EYC I )=BY~BYM 
0D8-4:ZYC I)=8:ZZC I )=1:ZXC I )=0:GOTO200 

520 IF R<12 THEN ESC I )=6 : EXC I )=BX: EYC I )=BY 
+16: ZXC I )=2+CRNDC 1 )*10<5 )*4: ZYC I )=8:ZZC I >= 
1 ELSE 173 

521 GOTO 200 

525 ESC I )=8:GOT0171 

530 IF WAMOD90C16 THEN ESC I )=9 : EXC I )=BX+SX 
CI +2)* 16: EYC I )=BY+SYC I +2 5*16: ZXC 1 )=SXC 1+2) 
*16:ZYC I )=SYC 1+2 )*24: GOTO200ELSE1 73 
535 IF R>50 THEN 173 

540 IF 1=0 THEN EXC I )=BX-BXM0D8+4: ESC I >=10 
: EYC I )=BY : ZXC I )=4 : ZZC I )= 1 : ZYC I )=RNDC 1 >*30+ 
100: IFEXC I X480REXC I )> 128THEN173ELSE200 
545 IF I<3 THEN EXC I)=X+8 ELSE EXC I >=RNDC 1 
5*152+16 

550 EXC I )=EXC I )-EXC I )M0D8-4:ESC 1 )=13:EYC I ) 
=12: ZZC I )=1:ZXCI)=1:GOTO200 
600 ON ST+1 GOTO 610.610.615,610,610,610 

610 BX=BX+BA¥8:BY=BY+BB¥4: IFBX<240RBX> 152T 
HENBX=BX-BA¥8 : BA=-BA* . 9 

6 1 1 BA=BA+SGNC X-BX 5 : BB=BB+SGNC 36-BY ) : GOT06 
50 

615 BX=BX+BA:BY=BY+BB¥4: IF BX<24 OR BX>152 
THEN BA=-BA:BX=24-CBX>25)*128 

616 BB=BB+2: IFBY> 160THENBY=160 : BB=-RNDC 1 )* 
15-10+CST=4)*10:BA=2+CRNDC 1 >*10<5>*4 

617 GOTO 650 
650 GOSUB850 
660 FORI I=0TO2 

665 XX=ABSCTXC I 1 )-BX) : YY=ABSCTYC I I >-BY>: IF 
XX<20 AND YY<20 THEN TYC I I )=200 : I 1 =2 : NEXT 
II:GOTO 680 

670 NEXT I I :XX=ABSCBX-X): YY=ABSCBY-Y): IFXXC 
20ANDYYC20THEN900ELSE100 

680 BT=BT-1 :SM=15: IF BT<0 THEN 690 ELSE 10 


690 SOUND7, 183: FOR I =0TO200: SOUNDS, RNDC 1 )*4 
+12-I¥40:FORL=12TO15:PUTSPRITEL. CRNDC 1 )*32 
+BX-16.RNDC 1 )*32+BY-16),8.RNDC 1 )*5+6:NEXTL 
, I: FOR I =0TO15: PUTSPRITE I . C0 , ) , : NEXT I : SC 
=SC+100:ST=ST+1 :ZI=ZI+1+CZI=9):MB=0: IFST=6 
THEN1050ELSE51 

700 A$=STR$CSC):A=LENCA$):FORI I=0TO5:B=ASC 
CM I DSC AS. A- 1 I , 1 >>: IF 1 I >A- 1 THEN B=32 
705 VPOKE G301-I I ,B:NEXTI I : RETURN 
710 A$=MID$CA$.2, 1 ):VPOKE G 173+YY*32 , ASCC A 
$>: RETURN 



800 XX=CEXC I )+8)¥8:YY=CEYC I )+8 )¥8 : GOTO805 

80 1 XX=CXX+8)¥8:YY=CYY+8)¥8 

805 V=VPEEKC 6 1 44+YY*32+XX ) : RETURN 

810 VPOKE 6144+YY*32+XX,32:RETURN 

850 C=15+CBT<10)*7:PUTSPRITE12, CBX-8.BY-8) 

, C . 1 8 : PUTSPR I TE 1 3 . C BX-8 . BY+8 ) . C , 1 9 : PUTSPR I 

TE 1 4. CBX+8.BY-8>,C. 20: PUTSPRITE 15.CBX+8, 

BY+8).C.2 1 : RETURN 

900 SOUND7 ,183: FOR I =0TO34 : SOUNDS . RNDC 1 )*4+ 

1 2- 1 ¥5 : PUTSPR I TE I . C . ) , : LOC ATE0 . : PR I NTC 

HRSC 27 ) + "M" : FORLL=0TO1 00 : NEXTLL 

905 FORLL=0TO1 : PUTSPR I TELL. CRNDC 1 >*32+X-8. 

RNDC 1 >*32 +Y-8 ) . 8 , G + I MOD5 : NEXTLL : NEXT I 

9 10 IF ZI=0 THEN 1000 

930 Z1=ZI-1 :MB=MB-1 : IF BO= 1 OR MB>29 THEN 

MB=29 

940 GOTO50 

950 IFHY=0THEN1 10 

955 S0UND7. 183 : XX=X: YY=Y: GOSUB80 1 

956 FOR I =0TO200 : K$= I NKEYS : FORL=0TO2 : SOUNDS 
.RNDC 1 )*4+12:AY=RNDC 1 )*YY: AY=AY-CST=5ANDAY 
<2>*2:AX=XX+RNDC 1 )*C YY~AY)*2-C YY-AY) : IFAX< 
20RAX>2 1 THENPUTSPR I TEL+2 , C . - 1 G ) : GOTO970 
958 VPOKE 6144+AY*32+AX.32 

960 PUTSPR I TEL+2. CAX*8-4.AY*8-4 5.8. 16 

970 MEXTL. I 

971 FORI 1=0TO6: IFEYC I I XYANDABSCEXC I I )-X>< 
Y-EYC I I )ANDESC I I ><> 13THENESC 1 I )=2 : ZZC I I >=0 

972 NEXTI I : IFBYCYANDABSCBX-X )<ABSCBY-Y)THE 
NBT=BT-10 

974 HY=HY- 1 : YY=8 : AS=STR$C HY ) : SO= 1 5 : GOSUB7 1 



990 SOUND 7, 176: GOTO 110 

1000 L0CATE4.22: A$=STRING$C 12. 10):PRINT"GA 

ME OVWR"+A$ 

1005 A=2:LOCATE2. 13 : PR I NT "CONTINUE" : FORI=9 

99TO0STEP-1:LOCATE13. 13:PRINTI: IFSTRIGC0)O 

RSTRIGC 1 )THENA=1 : 1=0 

1010 NEXTI :PRINTA$+AS:SC=0:ON A GOTO 1025. 

1030 

1025 ZI=5:MB=0:GOTO50 

1030 L0CATE4. 13 : PRINT"PUSH BUTTON" : IFSTRIG 

C0 5ORSTRIGC 1 5THENPRINTAS+AS: RUNELSE1030 

1050 FORL=0TO500:FORI=15TO0STEP-1 : VPOKE 81 

96, 112+1: NEXTI , L: A$=STRINGSC 12. 10 >: PRINT AS 

+AS+AS+AS 

1055 A=13568:FORI=0TO10:FORL=2TO21 : V=VPEEK 

C A ) : VPOKE6 1 44+ 1 *64+L , V : A=A+ 1 : FORM=0TO 1 500 : 

NEXTM.L. I:FORII=0TO5:FORI=0TO30000:NEXTI, I 

I 

1060 FORI=0TO6:EYCI)=-1:ZYC I)=0:NEXTI 

1065 FORI=0TO159:A=VPEEKC460B+I ):FORL=0TO1 

5 : B=VPEEKC 5 1 20+A* 1 6+L ) : B= 1 2288+B*20 

1070 LOCATE0 , : PRINTCHRSC27 )+"L" : FORM=BTOB 

+ 19: V=VPEEKC M ) : VPOKE6 1 46+M-B . V : NEXTM 

1072 FORN=0TO5: PUTSPR I TEN*2. CEXCN) , EYCN) ) , 

1 5,0: PUTSPR I TEN*2+1 , CEXCN) , EYCN) ) , N+2 , 1 : EY 

CN>=EYCN)-ZYCN): IFEYCNK0THENEXCN)=RNDC 1 )* 

144+16:EYCN)=200:ZYCN)=RNDC 1 )*5+2 

1075 NEXTM.L, I :GOTO1030 

1 100 CALL TURBO OFF 



♦COSMOWARS 



5 COLOR 14,0,0:SCREEN5.2.0 

10 _TURBO ON 

15 DIMTXC 1 5.TYC1 5.ZXC 1 >,ZYC 1 ),PXC 15 5.PYC15 

),PGC 15),SIC3G0).COC360).KAC 1 ),PC1 ),SC8) 

18 SC3)=1 :SC7)=-1 

20 FORJ=0TO1 :A$="":FORI=0TO31 : READBS: B=VAL 

C "&h "+BS ) : B$=CHR$C B ) : AS=AS+B$ : NEXT I : SPR I TE 

SC J)=A$:NEXTJ 

30 DATA 07, lf.3f ,7f ,7f ,ff ,ff . f f ,ff ,ff ,ff ,7 

f ,7f ,3f . If ,07.e0.-f8.fc,fe,fe,ff ,ff ,ff ,ff.f 

f ,ff ,fe,fe,fc,f8.e0 

35 DATA 00,00.00.00.00.00,00.01,01.00.00,0 

0. 00, 00. 00. 00, 00, 00. 00. 00, 00, 00, 00, 80, 80, 

0,00.00,00,00,00.00 

60 A=3. 14159 :FORI=0TO360: SIC I )=S INC A*I/'180 

> : COC I )=COSC A* I / 1 80 ) : NEXT I 

70 PXC0)=30:PYC0)=80:PXC 1 )=210:PYC 1 )=120:P 

GC0)=50:PGC 1 )=50:PUTSPRITE0.C30,80). 15.0:P 



UTSPRITE2.C210, 120), 15,0 

100 R=RNDC-TIME):FORI=2TO10 

1 10 PXC I )=RNDC 1 )*190+30:PYC I )=RNDC 1 )*160+2 
0:PGC I )=40+I*5 

120 FORJ=0TO10: IFABSCPXC I )-PXC J ) )< 16ANDABS 

C PYC I )-PYC J ) X 1 6AND 1 < > JTHEN 1 1 

130 NEXTJ:PUTSPRITEI+2,CPXCI),PYCI)). 1+1.0 

140 NEXTI 

180 KAC0)=0:KAC 1 )= 180 : PC0 )=0 : PC 1 )=0:TXC0) = 
-16:TYC 1 )=-16 

190 FORI=0TO1 

200 IF TXCDO-16 THEN 420 ELSE IF PCI)>0 

THEN 300 

205 SOUND8+I ,0:PUTSPRITE I *2+l . CPXC I )+COCK 

AC I ))*1G.PYC1)+SICKACI))*16), 15, 1 

210 S=STICKC I ):S=SCS): IFTXC 1-1 )>0THENS=S*6 

215 KAC I )=KAC I )+S:KAC 1 )=CKAC I )+360)MOD360 

220 IF STRIGCI) THEN PC I )=50 : SOUND8+I . 15 : S 



OUNDl*2,255:GOTO 400 ELSE400 

300 IF STRIGCI)=0 THEN 350 

305 SOUNDI*2.300-PC I ) : PUTSPR1TE1*2+1 . CPX 

)+COCKACI))*16.PYCI)+SICKACI))*16).8. 1 : PC I 

)=PC I ) + l-CTXC 1-1 )>0)*6:PC I )=PC I ) + CPC I )>270 

)*7:GOTO400 

350 TXC I )=PXC I )+COCKAC I ))*1G:TYC I )=PYC I )+S 

ICKAC I ))*1G:ZXC I )=COCKAC I ))*PC I )/64:ZYC I ) = 

S I C KAC I ) )*PC I )/64 : PC I )=0 : SOUND8+ 1 . : GOTO40 



400 NEXT I: GOTO 190 

420 PUTSPRITE 1*2+1 , CTXC I ) , TYC I ) ) . 15 . 1 : PSE 

TCTxC I)+8.TYCI)+8). 14: IFTXC I )=-16THEN500 

425 TXCI)=TXCI)+ZXCI):TYCI)=TYCI)+ZYCI): IF 

ABSC 1 20-TXC I ) ) > 1 350RABSC TYC I )- 1 00 ) > 1 05THEN 

TXC1)=-1G 

430 FORJ=0TO10:AX=PXCJ)-TXC I ) : AY=PYC J )-TY< 

I •> : p=Ax*AX+AY*AY : PP=SORC P ) : I FPPC7THENTXC I ) 

=- 1 6 : GOTO600 : GOTO500ELSEP=P*PP : P=P 

435 ZXC I )=ZXC I )+AX*PGC J )/P: ZYC I )=ZYC 1 >+AY* 

PGCJ)/P:NEXTJ 

500 NEXTI : GOTO 190 

600 IF J=0 OR J=l THEN 700 

610 J=14:NEXTJ:GOTO500 

700 P= J : J= 1 4 : I =2 : NEXTJ . I : FOR I =0TO30 : C I RCLE 

CPXCP)+8,PYCP)+8). I ,S:NEXTI :CLS:GOTO70 




111 




THREE 




20 DEF I NTA-Z : SCREENS ,0,0: COLOR 15.0,0: KEY 
OFF:VDPC9)=VDPC9) OR 2: DIM AXC66 ) : SETPAG 
E0 . 1 : CLS 

40 FORI=0TO5:FORJ=0TO65:READA$:AxCJ)=VAL 

<"&H"+A$): NEXT: COPY Ax TO C I * IB , ) . 1 , PSE 

T: NEXT: COPY Ax TO C96 . ). 1 , PSET: COPY Ax 

TO CI 12.0). 1 ,PSET:PAINTC 104. 8 ). 4, 15 : PAIN 

TC 120.8). 10. 15 

50 OPEN"GRP: "FOROUTPUTASB1 :A$=" ABCDEFGH 

I JKLMNOPQRSTUVWXYZ (.)!": PSET C , 1 6 ) . , OR : 

PRINT HI ,A$:PSETC 1 . 16 ) , . OR: PRINT HI. AS: 

A$="0 123456789" : PSETCO . 24 ), . OR: PRINT Ml 

,AS:PSETC 1 ,24),0.OR:PRINT ttl.AS 

60 FORI=0TO15:LINEC0,32+I )-C255,32+I ) , VA 

LC"&H"+MID$C"F3322CC0F9988660". 1+1 , 1 )):N 

EXT 

70 FORI=0TO15:COPYC0.32+I )-C 255, 32+1 ). 1 

TO CO. 16+1 ), 1 .AND: NEXT 

80 F0RI=0TO15: J=C I MOD 8 )¥4: COPYC0 . 16+1 ) 

-C254+J, 16+1 ). 1 TO AX:COPY Ax TO C1-J.16 

+1 ):NEXT 

100 SETPAGE0.2:CLS:FORI=0TO15:LINEC I . I )- 

C255-I .211-1). 15-I,B:NEXT:PAINTC30,30),6 

, 1 

1 10 CIRCLEC 128, 48), 24, 1 , , , 1 :CIRCLEC 104.8 

9). 24, 1 ... 1 : CIRCLEC 152 , 89 ) , 24, 1 . , , 1 : PAIN 

TC 128. 50), 8, 1:PAINTC106.92).4, 1:PAINTC16 

0,92), 10. 1: J=10: 1=7 : A$="THREE COLORS": GO 

SUB160 

120 FORA=3T04: J=4: I=6+A: GOSUB170 : NEXT: 1= 

8:A=1:GOSUB170:FORA=5TO7: J=A-3 : 1=11 : GOSU 

B 170: NEXT :FORK=0TO3: READ A$: J=ll: I=17+K* 

2:GOSUB160:NEXT 

130 J=7: I=14:A$="PUSH (SPACE) KEY '•":GOS 

UB160 

140 RUN " THREE. BAS 

160 FORA=0TOLENCA$)-1 : B=ASCCM IDSC AS, A+l . 
1 ))-65:COPYCB*8+8. 16 )-CB*8+15 . 22 ) . 1 TO C 
j*8+A*8 , I *8 ) , 2 . TPSET : NEXT : RETURN 
170 COPYCA*16.0)-CA*16+15. 15), 1 TO CJ*16 
. I* 16). 2. PSET: RETURN 

190 DATA 0010,0010.7574,7574,7574.7574 
200 DATA 5754.571 1 , 1 154.5754.7175. 14F8 
210 DATA 8F71 ,7415,5157.8198.8918.5417 
220 DATA 7174. 1398,8931 .7514. 1F54.3F81 
230 DATA 1822, 57F1 . 1975. F281 . 1822.7491 
240 DATA 5157,1213.2121.5417.7574.1213 
250 DATA 2121,7574,5751,2213,2122.1754 
260 DATA 11 12. 3233, 3C23 . 211 1 .2151,2233 
270 DATA 3C12. 1412, 1 174. 2232, CC12, 751 1 
280 DATA 5754, CC1 1 , I ICC, 5754. 7475, 1 175 
290 DATA 7411,7475,5457,5457,5457,5457 
300 DATA 0010.0010,7574,7574,7574,7574 
310 DATA 5754,5754,5754.5754.7475,7411 
320 DATA 1 175,7475,5157, 14F8.8F51 .5417 
330 OATA 7174.8198,8918,7514.5154,1398 
340 DATA 8931 ,5714, 1F75.3F81 . 1822, 74F1 
350 DATA 1957, F281 . 1822.5491 .7174.2213 
360 DATA 2122,7514,5754,1213,2121.5754 
370 DATA 7475,1213,2121.7475,1151,3233 
380 DATA 3C23. 141 1 ,21 12 , 2233 , 3C22 , 2 1 12 
390 DATA 1151 ,2232, CC12, 171 1 ,7475, CC1 1 
400 DATA 1 ICC, 7475, 5457. 1 157,541 1 ,5457 
410 DATA 0010,0010,7574,7574.7574,7574 
420 DATA 5754,5754,5754,5754,7475,7475 
430 DATA 7475.7475,5457.5457.5457,5457 
440 DATA 7574.7574,7574,7574.5754.5754 
450 DATA 5754.5754.7475.7475.7475,7475 
460 DATA 5457,5457.5457,5457,7574,7574 
470 DATA 7574,7574.5754,5754,5754.5754 
480 DATA 7475.7475,7475.7475.5457,5457 
490 DATA 5457,5457,7574,7574,7574,7574 
500 DATA 5754,5754,5754,5754,7475,7475 
510 DATA 7475,7475.5457,5457,5457,5457 



520 DATA 0O10,0O10,FFFF,FFFF.FFFF.F6FF 
530 DATA FFFF,FFFF.FFFF,66FF,99FF,9999 
540 DATA 9999, 6699, 98FF. 8888, 8888, 6689 
550 DATA 98FF.99F9.9F99. 6689. 98FF, 8896 
560 DATA 8988. 6669. 98FF . 8F98 , 89F8 , 6689 
570 DATA 98FF.F898,896F.6689,98FF,F698 
580 DATA 698F, 6689, 98FF.8F98.69F8. 6689 
590 DATA 98FF. 8898. 8866. 6689. 98FF.99F9 
600 DATA 9F99, 6689. 98FF. 8886, 8888, 6669 
610 DATA 99FF, 9999, 9999. 6699, 66F6, 6666 
620 DATA 6666,6666,6666,6666.6666,6666 
630 DATA 0010. 0010, FFFF.FFFF.FFFF.FFFF 
640 DATA FFFF.FFFF.FFFF.FCFF.FFFF.FFFF 
650 DATA FFFF,CCFF.FFFF,33FF.3333.CC3C 
660 DATA FFFF. 3333. 3333. CC2C.FFFF, 3333 
670 DATA 3233, CC2C.F3FF, 3333. 2233. CC2C 
680 DATA F3FF, 3333. 2232, CC2C.F3FF, 3333 
690 DATA 2222. CC2C.F3FF, 3233, 2222, CC2C 
700 DATA F3FF, 2233, 2222, CCCC.F3FF, 2232 
710 DATA 2222. CCCC.F3FF, 2222, CC22.CCCC 
720 DATA FCFF.CCCC.CCCC.CCCC.CCFF.CCCC 
730 DATA CCCC.CCCC.CCFC.CCCC.CCCCCCCC 
740 DATA 0010,0018, 7574, FF74.75FF, 7574 
750 DATA 5754, 88FF.FF88, 5754. 7F75. 8888 
760 DATA 8888. 74F5.F857. 8888, 8888. 548F 
770 DATA 887F,F88F,8888.F588,885F.88FF 
780 DATA 8888, F788.88F8. 8888. 8888, 8F88 
790 DATA 88F8. 8888. 8888. 8F88.8FF8. 8888 
800 DATA 8888. 8F88.8FF8, 8888. 8888. 8F88 
810 DATA 887F. 8888, 8888, F488.885F. 8888 
820 DATA 8888. F488.F874, 8888. 8888. 758F 
830 DATA 5F54. 8888. 8888, 57F4. 7475. 88FF 
840 DATA FF88. 7475, 5457. FF57.54FF, 5457 

860 DATA "¥¥¥ (FUKUSUKE) " , "¥¥¥ (WALL)". 
¥¥¥ (MOVE WALL) "."¥¥¥ (COLOR WALLS)" 




10 REM ■■■■■ START 

20 SCREEN5,0,0:DEFINTA-Z:DIM MC 13, 13). MS 

C15):FORI=0TO8:READ XC I ),YC 1 ):NEXT:FORI= 
0TO 1 5 : READMSC I ) : NEXT : DEFUSR=&H90 

40 SETPAGE2,2:FORI=0TO1 : I=-STRIGC0 )-STRI 

GC 1 ):NEXT:ST=STICKC0) OR STICKC 1 )+l : SETP 

AGE0.0:IF ST>8 THEN ST=8 

58 ON INTERVAL=62 GOSUB 4 10: ON KEY GOSUB 
280 

60 REM ■■■■■ MAKE SCREEN ■■■■■ 

70 VDPC9)=VDPC9) OR 2 : FORI=0TO7 : L1NEC 1 . 1 
)-C 142-1 .206-1). 15-I*2.B:NEXT:LINEC 144, 1 

)-C254,205), 15, B: J=19: 1=4: A$="THREE COLO 

RS":GOSUB380: J=20: I=12:AS=" (STAGE ) ":G 

OSUB380: J=19: I=21:A$="BY H¥SAWADA" : GOSUB 

380 

80 PLAY"T120V10O5L6". "T 1 20V8O4L8" : A=ST¥ 1 

0: J=27: I=12:ON -CST>9) GOSUB 400 : A=ST MO 

D 18: J=28:GOSUB40O 

90 BLC0)=0:BLC 1 )=0 : BLC2 )=0 : MG=0 : REST0RE4 

70: IF ST>1 THEN FORI=8TOST-2 : FORJ=BT01 1 : 

READAS: NEXT: NEXT 

100 FOR I = 1 TO 1 2 : READAS : FORJ= 1 T08 : A=VALC M I 

DSCAS. J, 1 ))+2:GOSUB390:MCJ. I )=A-2: IF A=8 

THEN X=J:Y=I:A=0:GOSUB39O:MCJ, I )=0 
110 IF A>4 THEN BLCA-5 )=BLCA-5 )+l 
120 NEXT: NEXT :BM=BLCO)+BLC 1 )+BLC2 ) : GOSUB 

410:KEYC1) ON 

130 REM ••••• MAIN ••••• 

140 S=STICKCO)+STICKC 1 ) : T=STRIGC0 )+STRIG 

C 1):W=XCS):Z=YCS): IF S MOD 2=0 OR CMCX+W 

.Y+Z)>0 AND T=0) OR X+W=0 OR X+W=9 OR Y+ 

Z=0 OR Y+Z=13 THEN 140 

150 IF T=0 THEN INTERVALSTOP: A=2 : J=X: I=Y 

: GOSUB390 : X=X+W : Y=Y+Z : A=P : J=X : I =Y : GOSUB3 

90:1 NTERVALON : FOR 1 =0TO99 : NEXT : GOTO 1 40 
168 IF MCX+W+W.Y+Z+Z)>8 OR MCX+W.Y+ZX2 

THEN 140 

170 BX=X+W:BY=Y+Z:C=MCBX,BY) 

180 IF MCBX+W,BY+Z)O0 THEN 200 

190 J=BX: I=BY: A=2 : GOSUB390 : MC J . I )=0:BX=B 



pE0GlAM|fOJSE 



X+W:BY=BY+Z:J=BX: I=BY: IF J=0 OR J=9 OR I 

=0 OR 1=13 THEN 260 ELSE A=C+2 : GOSUB390 : 

MCJ, I )=C:GOTO180 

200 SOUND7 ,184: SOUND 10,16: SOUND 11,0: SOUN 

D 1 2 . 1 : S0UND4 , 80 : SOUND5 , : SOUND 1 3 , : 1 F C 

<3 THEN 140 

210 FORK=1TO8:O=0:W=XCK):Z=YCK):J=BX: I=B 

Y 

220 IF J+W=0 OR J+W=9 OR I+Z=0 OR I+Z=13 

THEN 250 ELSE B=MC J+W. I+Z) : IF B<3 THEN 
250 ELSE IF BOC THEN 0=0+1 : J=J+W: I = I+Z: 
GOTO220 

230 IF 0=0 THEN 250 ELSE J=BX: I=BY: FORL= 
0TO 0-1 : J=J+W: I=I+Z:A=MCJ. I ) : BLC A-3 )-6LC 
A-3)-l : A=A+1 :A=A+CA=6)*3:BLCA-3)=BLCA-3) 
+ 1 : MC J . I )=A : A=A+2 : GOSUB390 : S0UND7 . 1 84 : SO 
UND 10.16: SOUND 11,0: SOUND 12, 10: S0UND4 . : S 
0UND5. 198: SOUND 13,0 
240 FORS=0TO250: NEXT: NEXT 

250 NEXT: IF BLCO)=BM OR BLC 1 )=BM OR BLC2 
)=BM THEN 300 ELSE 140 
260 IF C>2 AND C<6 THEN 280 ELSE 140 

280 KEYC1) OFF: INTERVALOFF: A=USRCO ) : PLAY 

"O3V15C2":GOTO80 

290 REM m—— STAGE CLEAR ••••• 

300 KEYC1) OFF: INTERVAL OFF: A=USRC0 ) : LIN 

EC 16, 56 )-C 127,79), 1 , BF: LI NEC 17 , 57 )-C 126 , 

78), 15.B: J=3: 1=8 : A$="STAGE CLEAR' 1 " : GOSUB 

380:LINEC 13 , 136 )-C 13 1 , 159 ) , 1 ,BF:LINEC 14, 

137 )-C 130, 158), 15,B: J=2 : 1=18 : A$="PUSH SP 

C KEY "^GOSUBSBO 

310 PLAY "S0M20O0OO5L8AFEDCBAGFEDC2", "SO 

M20000O5L8CDEFGABCDEFA2 " : FOR I =- 1 TOO : I=PL 

AYC0): NEXT 

320 FORI=0TO1: I=-STRIGC0 )-STRIGC 1 ):NEXT: 

ST=ST+1:IF ST<9 THEN 80 

340 FORI=OTO127:LINEC0, I*2)-C255, 1*2), 0: 

L I NEC I *2 , 8 )-C I *2 , 2 1 1 ) . 8 : NEXT 

350 J=8: I=8:A$="ALL STAGE CLEAR "":GOSUB 

380: J=5: 1=10: A$="YOU ARE (SUPER PLAYERS) 

":GOSUB380: J=8: 1=15 : AS="CONGRATULAT IONS 

~":GOSUB380 

360 J=6: 1=22: A$="PRESENTED BY H¥SAWADA" : 

GOSUB380:FORI=0TO1 : 1=0: NEXT 

380 FORA=OTOLENCAS)-1 : B=ASCCM IDSC AS, A+ 1 , 

l))-65:C0PYCB*8+8, 16 )-CB*8+15 , 22 ) , 1 TO C 

j*8+A*8 , I *8 ) . . TPSET : NEXT : RETURN 

390 COPYCA*16.0)-CA*16+15. 15), 1 TO CJ*16 

-8 , I * 1 6-8 ) . , PSET : RETURN 

400 COPYCA*8,24)-CA*8+7.30), 1 TO CJ*8,I* 

8 ),0, PSET: RETURN 

418 INTERVALOFF:P=P XOR 1 : COPY CP* 16 , 8 )-C 

P*16+15, 15), 1 TO CX*16-8,Y*16-8),8,PSET 

420 PLAY M$CMG),MSCMG+8): MG=MG+1 : IF MG=8 

THEN MG=0 
430 I NTERVALON: RETURN 

450 DATA 0,0.0,-1,1,-1,1.0,1.1,0,1.-1.1. 

-1,0.-1 ,-1 

460 DATA 05FAGB,B+BAG,FAGB,B+BAG,FGAB,CD 

EF , DC04BA . GFED , 05L8C4EE , D4GG , F4 . FEDC , C4E 

E.D4GG.F4.FEDE 

470 DATAO00O000O ,00000000,00000000,00000 

000,00333300,00300500,00300500,00355300, 

00006000.00000000,00000000,00000000 

480 DAT A60 000000, 0000000 0,00 300 000, 00000 

030, 00 150400. 000 14000, 00000300. 00000000, 

00000000,00030000,00000000,00000000 

490 DATA020202O 1, 2020 1020. 01020202, 20202 

020.02020 102.20262010,02020202.20102020, 

02020202, 10202500,02020240.20102051 

500 DATAO00O0001 .0000000 1, 0000500 1, 00004 

00 1 ,03000001 ,001 1 1 100,05000000,20060000, 

001 1 1 1 1 1 .00100001 ,00300201 , 1 1 1 1 101 1 

510 DATA2 10000 12. 2 10000 12, 2 10000 12. 2 1050 
012,21630412.21050012,21040012,21000012, 

2 1050012,21000012,21000012.21000012 

520 DATA60O00000 ,00000000,00000000.00005 

000,00000000.02000050.00200000,00000040, 

00000000. 00200002, 02020002, 00000000 

530 DATA00000000, 03055030, 03545330, 03545 

350,03543050,00004000,06052300,00302030, 

00002000,22020022,22220220,02222200 

540 DATA0O00000O, 00000000, 00200020, 03404 

400.00000000.00060000.00030000.02000030, 

000 00000. 00000020. 00010000, 00 100000 
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